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BELGRADO 


PERSIANO  Sai  eri 
SOMMA  Bari  ,MARTIN 
Trento ,  C ANERO  Cu= 
neo, FRAPPI  Arezzo, 

TOSCANINIVercelli, 

RUGGIU  Verona, SAR= 

NARI  Macerata, FERR 
Rovigo ,  BORGOGELLI 
Pesaro, SULIS  Cagli 
RANDONE  Torino, MANCIÙ 
NITaranto ,DEIORIO  Nap 
li, PASQUALI  Verona, CAM 
PISI  Roma.MANCINELLI  Pe 
saro,  TESSANOLO  Padova, 

FREDUCCI  Roma, GUERRA  Bari, 

FATONE  Milano, CAPOGI  Manto 
va, NEGRI  j^omo,CEOLA  Valdagno 
Firenze ,TORRETTI 
Teramo,  BELLI 
klano, CARLUCCI  Bar 
CARTABIA  Milano, 

MARSIGLIESI  Roma, 

[PALTRINIERI  Bologna; 

LARICCIA  Bari, LUISE  VeneJLV* 
zia,  BARCA  Milano,  ZANGHI 
Roma,  LAZZAROTTO  Varese,  LAN 
[TERI  Imperia,  SARTORI , Verona , 

FERRARI  Cremona,  CAKRER  Vicenz 
CAVALLIN  Vicenza, BRIGNOLI  Vice 
1,  DANESE  Vicenza,  NIOLO  Vicenza,1 
FASOLIN  Vicenza,  ATTANASIO  Vicenza, 

TONASI  Vicenza,  MIOTTI  Vicenza,  FORESTAN  Vicenza, 
PADOVANI  Vicenza,  FARINA  Vicenza,  BONATO  Schio, 
CUTILLO  Vicenza,  FEDOLFI  Vicenza,  CARTA  Vicenza, 
FORNASA  Bassano  del  Grappa,  GIUFFRIDA  Arcugnano, 
SAVEGNAGO  Vicenza,  CUNICO  Caldogno , DITOVO  Rett  or gol  e 
BURATTINI  Fabriano, CASELLA  Vicenza,  BERNO  Creazzo, 
ZANETTI  Vicenza,  COARO  Sovizzo , VIDALI  Vicenza, FRIGIO: 
LA  Vicenza,  GIANNELLO  Vicenza, RtDTELLI  Schio,  POMAR; 
Chiampo ,MUNARI  Recoaro,  FENIANI  Vicenza , ZAMP IERI 
Bassano, MATTAROLO  Breganze , SCOCCHI  Creazzo , GIOR= 

DANI  Camisano,  DAMEDA  Schio,  FRANZOI  Vicenza, 
MAGNABOSCO  Schio, 

MANTOVANI  Vicenza 
FRIZZIERO  Vicenza  , 

COLOMBO  Vicenza, GALVA= 

NIN  Vicenza,  GATTO  Sandri* 

VESCOVI  Vicenza, Salerno  Vic< 


GALLO  Catanzaro,  SCAGLIONE 
Palermo, SQUINTANI  Milano, SAR= 
TORI  Milano, THIELLA  Thiene,DOL 
METTA  Imperia,  CERULO  Benevento, 
ARRIGO  Firenze ,COPPINI  Firenze, CAL= 
LEGARI  Varese ,CIMADORI  Padova, GALLI 
NA  Torino,  SBACCHIS  Palermo ,MAZZURA 
NA  Verona,  TADDEUCCI  Livorno,  PRIOD 
Torino,  DEBERNARDINI  Roma, BEN ATTI  Vero 
na , STROMILLO  Pistoia,  SCHIAVONE  Roma, 
MASSACESI  Roma,  ZAGA  Pavia, BIANCO  To 
rino ,DEGIORGIO  Merano, CALZA  Genova, 
LOMBARDO  Benevento,  TOMELLINI  Mila 
no,  CONSONNI  Verona, ANGELONI  Roma 
FUCINI  Torino,  DEMOMI  Padova, CO 
SIMO  Taranto,  MUSCARA  Mestre, 
ARDITO  Brindisi,  CASTAGNARO 
Varese ,PERLINI  Pesaro , PIANTA= 
NIDA  Milano,  ZUPI  Napoli, LATEL 
LA  Bari,  NICOLETTI  Venezia,. 
GANEM  Roma,  TRAVAGLINI  Roma, 
FEI  Milano,  SAMPELLEGRINI 
Bergamo , OSELLA  Torino, PIZ= 
ZOTTI  Milano, CRISTIANO  Ro= 
ma,  MALATO  Milano, VAGO 

Piacenza,  RI^SO  Imperia, 
GHEZZI  Arezzo,  CORTI 
Pavia, SARTO= 


RI  Milano, BAR= 
BIERI  Bressanone 
CHINI  Trento, 
FIACCHI  Bolo= 
gna, CHIAPPI 
NI  Campo- 
basso , 


a  tutti  voi 


UN  SALUTO  E  UN  "  GRAZIE  " 


Sembrava  che  i  TEXANI  erano  uno  sparuto  gruppo ' sparsi  per  l'Italia 
che  in  preda  a  qualche  raptus  improvviso  avevano  scelto  di  acquista^ 
re  un  TI  99. 

Non  è  pubblicizzato  come  certi  "trabiccoli",  riviste  che  si  defi= 
niscono  specializzate  lo  ignorano.  Credono  che  chi  sta  adoperando 
un  TI  99  sia  residente  in  un  paesino  di  montagna  fuori  da  ogni  con= 
t  a  1 1  o  . 

Un  vero  peccato  che  questa  macchina  sia  arrivata  da  noi  in  ritardo, 
nel  '79  era  già  circolante  in  USA,  oggi  non  c'è  ragazzino  di  IO  an¬ 
ni  che  non  abbia  fatto  un  esperienza  sul  TI  99.  Noi  in  Italia  come 
al  solito  arriviamo  quando  gli  altri  d' oltreoceano  hanno  già  finito 
I  possessori  del  TI  99  in  america  sono  già  da  tempo  passati  al  Per= 
sonai,  qui  da  noi  il  Personal  a  stento  entra  in  uno  studio  profes= 
sionale,  in  una  azienda, in  uno  studio  medico.  Le  distanze  culturali 
aumentano  smisuratamente  di  minuto  in  minuto. 

In  america  sul  Ti  sanno  tutto  noi  invece  abbiamo  davanti  un' oggetto 
misterioso,  straordinario,  sconcertante.  Chi  pigia  sui  tasti  ogni 
tanto  vede  venir  fuori  certe  cose  che  ci  lascia  addirittura  imbambo 
lati.  Mamma  TEXAS  ci  ha  messo  tutta  la  sua  esperienza.  Quei  2300 
grammi  di  ferraglia  (  così  si  espresse  un  famoso  Ministro  quando  si 
parlò  di  incentivare  lo  sviluppo  dell ' Hardware  in  Italia)  hanno  un 
universo  di  conoscenze,  innovazioni,  di  tecnologia  avanzata. 

Alcuni  di  noi  hanno  cominciato  a  conoscere  il  TI  99  e  il  suo  TI 
Basic  solo  un  anno  fa. Già  ci  sorprendeva  la  resequenze,  il  number, 
la  grafica.  Siamo  arrivati  poi  all'  EXTEND1C  BASIC.  Altre  meraviglie 
le  sue  possibili  15  variabili  in  una  sola  istruzione,  i  favolosi 
spriter,  le  sue  matrici  di  1 5 ’ J  caratteri.  Poi  abbiamo  sentito  par  = 
lare  della  Minimemory.  Chi  l'ha  solo  toccata  ne  rimane  contagiato, 
se  poi  guarda  e  sfoglia  il  manuale  dell ' assembler  con  le  mappe  di 
memoria  con  le  locazioni  dei  registri  scopre  tutta  la  potenza  di 
questo  TMS  9900.  Avete  mai  visto  su  un  monitor  i  pixel  colorati 
che  uno  per  uno  nel  programma  dimostrativo  si  rincorrono,  si  accop= 
piano,  si  dilatano  fino  a  formale  architetture  stupende  ? 

Credete  che  le  sorprese  siano  finite?  NO  !  Montate  il  sintetizzato= 
re  introducete  la  SSS  Terminal  Emulator ,  Buttate  4  righe  di  program= 
ma;  scegliete  i  toni  vocali  da  1  a  255t  mettete  qualche  “  ,  poi  qual= 
che? qualche  ><  ,  digitate  una  frase,  un  nome  ed  ecco  il  riso  di 
un  bambino,  l'imprecazione  di  un  ubriaco,  il  canto  di  un  uccello,  lo 
sbatter  d'ali  di  una  colomba,  il  rimprovero  del  nonno,  1' esclamazio¬ 
ne  di  meraviglia  di  vostro  zio,  cugino,  amico,  il  monologo  di  Arnle= 
to  recitato  da  Gassman.  Non  è  un  miracolo  !  E'  tecnologia  TEXAS. 

Dopo  lette  queste  righe,  riguardate  la  vostra  consolle  e  con  un 
gesto  accarezzatela.  Non  fraintendetemi  non  vi  invito  a  comunicare 
sentimenti  a  una  macchina  ma  ringraziare  metaforicamente  quelle  c en- 
tinaia  di  migliaia  di  tecnici  che  hanno  permesso  tutto  questo,  insom 
ma  un  grazie  a  Mamma  Texas.  Un  rimprovero  anche  però.  All'improvviso 
ci  piombano  tutte  queste  novità,  questi  marchingegni  senza  che  nes= 
suna  ce  ne  ha  parlato,  ce  li  ha  illustrati  ,  ne  a  scuola,  ne  sulle 
riviste  specializzate. 


Queste  ultime  poi, più  per  convenienza  pubblicitaria  che  per  in= 
formazione  culturale  ci  hanno  seguitato  a  propinarci  il  giochino  di 
questo,  il  listato  di  quell' altro.  Informazioni  di  carattere  generale 
nulla.!  Pagine  di  lodi,  colonne  e  colonne  di  sviolinate  su  trabiccoli. 
Poi  ci  appare  un  TI  sul  mercato  e  nessuno  ne  sa  niente,  ne  ha  capito 
niente,  fa  finta  di  niente. 

Cosa  del  resto  ci  poteva  capitare  a  noi  povero  popolo  so ttosviluppa= 
to?  Quale  tipo  di  informazione  ufficiale  possiamo  pretendere  quando 
la  stessa  scuola  ad  ogni  livello  ignora  il  computer?  Che  piatto  andrei 
mo  a  cucinare  per  questa  sempre  più  enorme,  sempre  di  più  incessante, 
sempre  di  più  travolgente  fame  di  notizie  che  i  giovani  stanno  preten= 
dendo  a  diritto. 

Questa  rivista-notiziario  è  nata  a  forza  di  dare  risposta  ai  mille  per= 
chè,  ed  essendo  io  solo  (  dico  solo)  non  potevo  certamente  dare  una 
risposta, a  tutti  in  un  modo  personale.  Inoltre  con  le  vostre  mille  do= 
mande  mi  avete  scambiato  per  un  tecnico;  purtroppo  non  lo  sono,  nè 
(per  rispondere  a  tutti  voi)  lo  diventerò  mai.  Sono  uno  di  voi  e  nean¬ 
che  col  computer  tanto  bravo  come  qualcuno  mi  crede.  Anch'io  arranco 
anch'io  provo  e  riprovo,  anch'io  divento  pazzo  quando  un  programma  non 
gira.  A  questa  mia  tanta  ignoranza  ho  rimediato  mettendomi  in  contatto 
con  uno  di  voi,  poi  due,  poi  10  poi  cento  ora  siamo  mille  !  E  se  oggi 
e  domani  voi  trovate  in  queste  pagine  qualcosa  di  interessante  lo  dove» 
te  a  uno  di  questi  mille  cui  ricorro  per  mettere  insieme  queste  pagine* 
Ma  forse  per  qualcuno  di  voi  sono  ingenuità,  ma  allora  perchè  non  col= 
labora  costui,  perchè  non  invia  qualcosa  di  strabiliante? 

Qui  non  siamo  in  una  redazione,  qui  c'è  solo  FRANCO,  solo  ricordati, 
con  tanta  buona  volontà,  con  tanta  iniziativa  e  che  aspetta  i  più 
bravi  di  lui . 

Hai  visto  che  salto  di  qualità  già  dal  primo  numero?  Merito  mio  ?  NO 
vostro!  Qualcuno  ci  ha  criticato,  ci  ha  detto ,come  dovremmo  farla  ma 
poi  ha  dimenticato  di  mettere  lui  due  righe  per  tutti. 

In  un  giorno  non  molto  lontano  in  massa  passeremo  ad  un  sistema  più 
grande  (  è  inevitabile)  quel  giorno  dovremo  essere  ancora  più  uniti 
per  ulteriori  conoscenze,  ulteriori  scambi  e  per  crescere  più  spedi= 
tamente  verso  una  nuova  cultura  che  contrariamente  a  quanto  pensava= 
no(  e  come  avrebbero  potuto-  far  diversamente)  Labriola,  Schopenhauer, 
Freud,  Adorno,  Marcuse  e  perfino  lo  stesso  Marx  non  sarà  asservita  al 
sistema  capitalistico  ne  potrà  essere  fatta  quella  antipatica  distin= 
zione  Cultura-borghese,  Cultura-proletaria.  L'uomo  contemporaneo  è 
chiamato  ad  esprimere  la  propria  liberazione  con  l'informatica  !  E  in 
una  forma  come  ho  già  detto  ancora  più  travolgente ;1 'Autodidattica  ! 
Visto  che  nessuno  la  insegna  !  (  tolti  i  furbi  privati  che  stanno  fa= 

cendo  soldi  a  palate  per  insegnare  ^uattro  istruzioni.) 

La  Cultura  è  sempre  apparsa  come  un  codice  in  base  al  quale  vengono 
emessi  certi  messaggi.  Se  le  persone  singole,  i  gruppi  sociali  o  i 
gruppi  etnici  sono  portatori  di  culture  diverse,  manca  loro  la  possi= 
bilità  di  comunicare  in  base  a  un  codice  in  qualche  modo  comune. 

Tutte  le  incomprensioni ,  le  incompatibilità  e  le  intolleranze  fra  i 
gruppi  umani  derivano  da  queste  carenze  a  livello  di  comunicazione  che 
si  aggiungono  poi  ad  altri  conflitti  di  ordine  economico , politico  e 
sociale  aggravandoli. 

Difronte  q.  questo  potente  mezzo  "il  computer"  vedo  ogni  giorno  vacil= 
lare  in  molte  persone  quelle  sicurezze  acquisite  e  impregnate  di  culto 
esclusivo  della  propria  cultura.  Più  sono  colti  più  avvertono  psico= 
logicamente  come  una  minaccia  e  una  messa  in  discussione  pericolosa 
la  propria  integrità  culturale. 

Cari  amici  che  disastro  sta  avvenendo  ! 


Chi  è  troppo  in  alto  ha  perso  il  contatto  con  la  realtà  oggettiva 
che  ci  circonda,  chi  è  troppo  in  basso  la  vede  questa  reai tà,l '  avverte , 
ma  non  la  capisce.  Un  baratro  (  love, soli  soli,  pochi, armati  di  buo= 
na-volòntà  stanno  facendo  i  funamboli! 

Nella  mia  modesta  bottega  vendo  alla  vecchietta  il  suo  mezzo  chilo  di 
sale  (  ho  una  tabaccheria  lo  ricordate  ?)  e  all'ingegnere  poi  incre= 
dulo  faccio  vedere  e  scorrere  e  poi  risolvere  dal  computer  in  pochi 
secondi  un  suo  problema  di  ingegneria  complesso.  Due  mondi,  due  cul= 
ture  diverse.  Uno  non  comprende,  l'altro  è  rimasto  indietro.  Una 
acculturazione  fallita  sia  per  l'uno  che  per  l'altro. 

Industriali  con  in  azienda  computer  e  programmatori  e  che  avevano  scarni 
biato  il  computer  come  una  normale  macchina  d'ufficio,  corrono  ai 
ripari,  vogliono  incominciare  a  capire,  avvertono  che  fra  poco  rimar= 
ranno  tagliati  fuori  dalla  cultura  informatica,  dalla  economia  infor= 
matica,  dall'efficienza  informatica.  Tutto  un  mondo  a  parte  fra  poco! 

Un  mio  vicino  nella  sua  stalla  con  60  vacche  da  latte  ha  impiantato 
il  computer.  Sbaglia  chi  pensa  che  questo  significa  solo  efficienza, 
ottimizzazione.  Significa  mentalità  coerente.  Uomo  del  proprio  tempo! 

Da  me  insegnanti,  presidi , direttori  didattici  vengono  per  farsi  spie= 
gare  come  potrebbero  usare  il  computer  in  classe,  come  fare  per  impa= 
rare  ad  usarlo  subito,  cosa  potrebbe  servire.  Subito  dopo  entrano  ra= 
gazzi,  ragazzi,  ragazzini*  Sanno  già  tutto,  vogliono  sapere  ancora 
tutto,  già  fanno  di  tutto. 

I  grandi:  Computer  ?  ma  cosa  fa  ?  (  a  me  me  lo  chiedono  mentre  stanno 
acquistando  un  pacchetto  di  sigarette.  In  un  negozio  di  computer  gli 
stessi  non  lo  chiederebbero.  Frenico  è  diverso;  è  disponibile  senza 
impegni  e  poi  è  lì^ perchè  non  chiederlo?). 

Anche  a  livelli  di  cultura  superiore  si  seguita  a  fare  due  errori  ma= 
domali,  cioè  a  scambiare  INFORMATICA  come  informazione  usuale,  cioè 
notizie  dei  giornali,  della  radio,  della  televisione.  Per  altri  INFOR= 
MATICA  è  calcolatore,  calcolatrice.  Ho  dovuto  lottare  per  far  capire 
a  certi  preposti  dell'amministrazione  che  computer  non  è  calcolatore 
solo,  ma  una  macchina  di  impiego  universale  nel  senso  che  può  operare 
in  base  a  qualsiasi  programma  di  elaborazione  che  venga  preparato. 
Senza  tale  programma  la  macchina  è  ferraglia  e  basta.  Non  è  una  calco= 
latri  ce,  non  fa  nessun  lavoro,  non  fa  nessun  gioco.  Il  computer  fa 
e  risolve  un  programma  scientifico  se  il  programmatore  gli  ha  messo 
un  programma  scientifico  che  ha  ben  in  testa  in  modo  chiaro.  Fa  Cap= 
puccetto  Rosso  il  bambino  se  lo  stesso  ha  digitato  caratteri  su  carat= 
teri  per  costruirlo.  E  qui  l'affascinante  !  Ancora  di  più  affascinai 
te  se  poi  introduco  10/ lOO/lOOO/lOOO  .000  di  informazioni -prò grammi 
fatti  da  altri.  Intuisco  che  posso  avere  a  disposizione  in  un  modo 
istantaneo  10/ 100/ 1000/ 1  .000 .000  di  informazioni  che  vanno  ad  accre= 
scere  in  un  istante  il  mio  sapere,  le  mie  conoscenze.  Acquisisco 
INFORMAZIONI  cioè  uno  dei  tre  principali  costituenti  della  natura: 
Materia,  Energia,  Informazione. 

Più  inserisco  programmi  fatti  da  cervelli  umani  più  rendo  ricca  l'in= 
formazione  a  mia  disposizione.  Più  metto  libri  in  una  biblioteca  più 
rendo  ricca  1 'ìnformazione(disponibile)  a  mia  disposizione.  Quindi 
ricordatevi  amici,  essere  uniti  vuol  dire  scambiarci  programmi , quindi 
informazioni,  più  sono  complessi  i  programmi  più  alta  diventa  la 
nostra  capacità  di  dialogare  con  questi  programmi,  più  alti  ovviamen= 
te  saranno  le  nostre  capacità  di  crearne  accora  più  complessi. 

E'  sempre  stato  così.  Dall'età  della  pietra!  Ma  che  dico,  tutta  la 
evoluzione  genetica  è  scambio  di  informazione.  DNa,  Proteine,  Cellu= 
le  eucario ti che , organismi  etc  etc.  Evoluzione  culturale  ?  Cinquemila 
anni  di  storia  scritta  insegna. 


\i 


Elettronica,  nuova  rivoluzione  industriale 


Milano  —  Nelle  fabbriche  del  mondo 
Industrializzato  si  perdono  ogni  settima¬ 
na  dal  50  mila  al  centomila  posti  cu 
lavorò.  Questo  continuo  collasso  è  dovu¬ 
to  in  minima  parte  alla  crisi  economica 
che  fa  sentire  1  suol  effetti  un  po’  dovun¬ 
que.  n  «responsabile-  principale  dell'I¬ 
narrestabile  stillicidio  sul  fronte  occupa¬ 
zionale  si  chlamp  progresso.  La  rivolu¬ 
tone  elettronica,  la  vera  rivoluzione  de¬ 
gli  anni  Ottanta,  sta  sovvertendo  1  diffi¬ 
cili  equilibri  raggiunti  nel  periodo  più 


chiamarsi  fuori.  E’  un  cqncetto  che  l’am¬ 
ministratore  delegato  dell’OUvettl,  Car¬ 
lo  De  Benedetti,  ha  Ieri  ribadito  a  chiare 
lettere:  «CI  troviamo  di  fronte  a  un  fatto¬ 
re  'orizzontale’  di  produzione  destinato 
ad  Interessare  e  Intervenire  In  tutti  i 
settori  industriali  e  non  industriali, 
orientandone  l'evoluzione:  affrontare 
problema  dell'elettronica  italiani» 
fica,  quindi,  affrontare  l’in 
tendenza  per  una  ripres^j^’^^- 

E'.  quest^^^'  .a.’O- 
lanciat^ji^^ 


sto  l’accento  sulla  necessità  di 
un  organo  nazionale  dell; 
zione  presso  il  minist^^^-  -- 
provveda  al  rii^|K^^  C£v»c' 
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_ _  _  .  ,  ma  produttivo 

caldo  del  «boom»  Industriale.  Pino  a  che 
punto  computer  e  robot  prenderanno  11 
posto  della  manodopera,  Uno  a  che  Uvei-  i 
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01  ^PprtTc  o  n  gresao .  Soffermandosi  sul 
!portl  con  gU  altri  partiti  della  coall- 
zlone,  Colombo  ha  aggiunto:  «Non  cl  fa 
paura  Craxl  e  U.suo  socialismo:  lo  rite¬ 
niamo  con  noi  portatore  di  libertà  e 
democrazia.  Con  questo  socialismo  e  con 
U  polo  laico  vogliamo  confrontarci  e  bol- 
laborare  neff’lnteresse  del  Paese.. 
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L’insegnante  che  osserva,  consiglia  e 
pianifica 

Da  questa  rivoluzione  nel  ruolo  tra  l’uo¬ 
mo  e  la  macchina  si  può  ricavare  un  nuovo, 
importantissimo  ruolo  per  l’insegnante.  Il 
quale  diventa  un  osservatore  privilegiato 
delle  esperiènze  del  bambino. 

E  soprattutto  diventa  un  consulente  del 
bambino:  colui  che  guida  e  dà  all’allievo  i 
consigli  sulla  maniera  più  saggia  di  orga¬ 
nizzarsi  e  di  procedere  per  raggiungere  i 
propri  obiettivi,  anziché  insegnare  tra¬ 
smettendo  in  modo  meccanico  le  indica¬ 
zioni  sulle  azioni  da  fare. 

Al  tempo  stesso  il  LOGO  è  un  mondo 
che  può  essere  esplorato  soltanto  un  pezzo 
per  volta.  L’insegnante  diventa  quindi  la 
persona  più  adatta  a  pianificare  questa 
esplorazione,  in  maniera  da  renderla  siste¬ 
matica  e  proficua  per  l’apprendimento. 


Un  problema  problematico 


Una  delle  caratteristiche  meno  simpati¬ 
che  del  TI  99  è  che  non  esiste  il  modo  di 
sapere,  tramite  il  TI-Basic,  quale  sia  la 
quantità  di  memoria  occupata  dal  pro¬ 
gramma  e  quindi,  per  differenza,  quella 
rimasta  libera  per  i  dati.  Questo  implica  la 
possibilità  di  trovarsi  un  bel  messaggio  di 
MEMORY  FULL  sul  video  proprio  nel 
momento  meno  opportuno. 

Si  può  aggirare  l'ostacolo  caricando  il 
programma  tramite  l’Extended  Basic  che 
permette  con  l’istruzione  SIZE  di  sapere 
quanta  memoria  libera  sia  a  disposizione 
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I  SEGRETI  DEL 


ti  99 


4/A 


DEL  MESE 


Non  è  un  problema  problematico,  nel  nostro 
■'éj'g  A  A  CLUB  queste  cose  le  sanno  anche  i  ra^azzi  = 

NVI  M  fCnlr.  ni  di  IO  anni. 


IN  QUALSIASI  PUNTO  DEL  PROGRAMMA ,  O  ANCHE 
DOPO  AVER  FATTO  UNA  SOLA  RIGA  IL  TI  99  VI 
DA  IL  NUMERO  DEI  BYTE  CHE  VI  RIMANGONO  A 
DISPOSIZIONE. 

IO  PRINT  "  FRANCOMPUTER"  (  il  programma  ) 

digitate  ora 

1  X=X+  9 

2  GOSUB  1 

adesso  fate  RUN  ,  aspettate  alcuni  secondi 
ed  ecco  apparire 

MEMORY  FULL  IN  1 

adesso  digitate 

PRINT  X 

il  Computer  stampa 

16326  ==  =  =  ====  sono  i  Byte  che  vi  rimangono  e  che  potete 

utilizzare . 

INFATTI  16  K  x  1024  byte  =  16384  byte  meno  i  58  che  avete 

adoperato  per  scrivere  quanto  sopra  fanno  I6326. 

CAPITOOOOOGO  I 

(  naturalmente  se  avete  un  programma  che  inizia  dall’  1  ri= 
sequenziate  per  poter  avere  1’  1  e  il  2  liberi) 


(  questo  è  uno  dei  segreti  del  mese  che  valgono  il  prezzo 
della  sola  rivista.  Quindi  non  storcete  la  bocca  quando 
vi  chiediamo  le  4000  lire.  )  I 
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staivi  bove  vuoi 


IO  REM  SCRITTURA  IN  QUALUNQUE 
POSIZIONE  DEL  VIDEO 
IOO  CALL  CLEAR 
HO  INPUT  A£ 

115  REM  A,g  LE  PAROLE  CHE  SI 

VOGLIONO  SCRIVERE 

120  INPUT  "NUM.  di  BATTUTE" :N 

125  REM  SI  CONTANO  .  ANCHE  GLI 

SPAZI  E  LA  PUNTEGGIATURA 

130  INPUT  "H  H 

135  REM  POSIZIONE  ORRIZONTALE 

140  INPUT  "V  V 

145  REM  POSIZIONE  VERTICALE  j 

150  POR  K=  I  TO  N 

160  L=ASC(SEG^(A^,K,1 ) ) 

170  CALL  HCHAR  (H,V+K,L)  FRAIUCOMPU  TER 

180  NEXT  K  — 

190  STOP 

Si  può  usare  anche  in  senso 
verticale,  basta  cambiare 
170  CALL  VCHAR ( H+K , V , L ) 

Attenzione  di  non  uscire  dallo 
schermo  !  !  ! 

BAD  VALUE  IN  170 
Con  questo  sistema  si  possono 
occupare  tutti  i  punti  dello 
schermo,  32  x  24,  non  possibi 
le  con  PRINT  ,  28  x  23. 

A$  è  la  frase  che  vuoi 
scrivere  nel  video 


CLUB 

COMPUTER 
TEXAS  TI-99 
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"DISPLAY  AT"  (VELOCE)  di  FRANCESCO  CIMADORI 

COME  SAPETE  ESISTE  LA  FAMOSA  HOUT1NE  "display  at"  PER  IL 
TI  BASIC.  AVRETE  NOTATO  L'ESTREMA  LENTEZZA  CON  CUI  LA 
ROUTINE!  STAMPA  LE  STRINGHE:  CIO'  E'  DOVUTO  A  TUTTE  LE  TRAC 
FORMAZIONI  CHE  DEVE  SUBIRE  IL  CARATTERE  PRIMA  DI  ESSERE 
VISUALIZZATO  NEL  VIDEO. 

ORA,  CON  IL  PROGRAMMA  CHE  HO  MESSO  A  PUNTO,  IL  TEMPO  DI 
STAMPA  VIENE  RIDOTTO  DELLA  META'  E  PIU'  RISPETTO  ALLA  VEC¬ 
CHIA  ROUTINE. 

INNANZI  TUTTO  SI  DEVONO  DIMENSIONARE  3  MATRICI: 

100  DIM  W(N,P),V(N),H(N) 

DOVE  ' N '  è  IL  NUMERO  DELLE  STRINGHE  CHE  AVETE  E 

•P'  e  LA  LUNGHEZZA  MASSIMA  A  CUI  ARRIVANO  LE 
STRINGHE 

IN  SEGUITO, NELL'  ISTRUZIONE  "DATA",  ME  T I  ET  E  TUTTE  LE  VOSTRE 
STRINGHE  CON  QUESTO  SCHEMA: 

110  DATA  (RIGA  ),  (COLONNA- 1  ),( STRINGA  )  ,  ecc. 

DOVE  (RIGA)  E  (COLONNA-l)  INDICANO  LE  COORDINATE  DI 
INIZIO  STAMPA  DELLE  STRINGHE  E 

(STRINGA)  E'  LA  VOSTRA  FRASE  CHE  VOLETE  VISUALI_Z 
ZARE. 

ECCO  IL  PROGRAMMA  CHE  CARICA  LE  MATRICI: 

200  FOR  T=-0  TO  N 
210  READ  V  (T  )  ,H(T  )  ,A  4- 
220  w(T,o)=LEN(A$) 

230  FOR  1=1  TO  W(T,0) 

240  V(T,I )=ASC(SEG$(A$,I, 1 ) ) 

250  NEXT  I 
260  NEXT  T 

ROUTINE  "display  at"  (per  tutte  le  stringhe) 

270  FOR  T=  0  TO  N 
280  FOR  1=1  TO  W(T,0) 

290  CALL  HCHAR  ( V ( T  )  , H ( T  ) +1 , V ( T , I  ) ) 

300  NEXT  I 
310  NEXT  T 

NATURALMENTE  SI  PUÒ'  STAMPARE  ANCHE  UNA  SOLA  STRINGA  OPPU 
STRINGHE  CHE  NON  SONO  CONSECUTIVE: 

270  T=  4 

280  FOR  1=1  TO  V(T,0) 

290  CALL  HCHAR'(V(T  ),h(t  )+I,w(T,I  )  ) 

300  NEXT  I 

LO  SPAZIO  DI  MEMORIA  CHE  VIENE  OCCUPATO  E'  RELATIVAMENTE 
POCO  E  SI  PUÒ'  VERIFICARE  UN  ERRORE  DI  'MEMORY  FULL'  SE  DU 
RANTE  LO  SVOLGIMENTO  VENGONO  ASSEGNATI  CON  IL  SOTTOPROGRAM 
MA  ' C  HA  R '  MOLTI  CARATTERI. 

TROVERETE  UN  USO  DSL  MIO  PROGRAMMA  NEL  GIOCO  "CAVERN  OF 
MARS"  IN  VENDITA  PRESSO  IL  NOSTRO  CLUB  .  (<o»J 


FRANCOMPUTEB 


fetcm-CecOei 


100  CALL  CLEAR 

II»  REM  ESEMPIO  COME  E'  POS 

SI BILE  COSTRUIRE  UN  3EMPLI 

CE  GRAFICO  CURVI FORME 

120  REM  LA  SCALA  E’  DAL  fi  A  L 

l  fi  filo,  E  IN  QUESTO  CASO  SONO 

I  MESI  A  CONFRONTO 

130  PRINT  "ESEMPIO  DI  GRAFI C 

0  CON  LE": "COORDINATE  X  E  Y" 

•  • 

•  • 

140  PRINT  "TABELLA  COD.  DI 
" :  :  "C0D.2  =  Ififip'i"  4  = 
90":"  6  =  80"  • 

150  PRINT  "  8  =  70":" 

IO  =  60":"  12  =  50":" 

14  =  40":"  16  =  30" 

160  PRINT  »  18  =  20":" 

20  =  IO": "COSI*  COME  COD. 19 
=15#" : "PRENDI  NOTA" : "PREMI 
C  PER  CONTINUARE": 

170  CALL  KEY(^,K,S) 

I80IF  S =fi  THEN  170 
I9Q  DIM  A(I2) 

195  REM  I  DODICI  MESI 
200  B^$= H OOOOOOFFFF " 

210  CALL  CHAR(I28fB^) 

CALL  CLEAR  220 
230  FOR  J=I  TO  12 
240  PRINT  "MESE"  ;  (  J  ).; 

250  INPUT  A(J.7) 

260  «EXT  J 
2 7 OC ALL  CLEAR 

280  FOR  -K=I00  TO  fi  STEP  -IO 
PRINT  290 
300PRINT  K 
310  NEXT  K 

320  PRINT  "01234567 
8  9  101112"? ' 

330  C=I 

340  FOR  K=I  TO  II 

350  CALL  HCHAR(Cf3,I28,28) 

360  C=C+2 

370  NEXT  K 

380  B=6 

390  FOR  J=I  TO  12 

400  CALL  HCHAR (  A  (  J  ) ,  B ,  42  ) 

410  B=B+2 
420  NEXT  J 
430  GOTO  430 


100  CALL  CLEAR 

IIO  REM  COSTRUZIONE  A  PIENO 

SCHERMO  DEI  SEDICI  COLORI  DEL 

TI/ 99  IN  16  BLOCCHI 

120  PRINT  "COSTRUZIONE  IN  BL 

OCCHI  DI?: "15  COLORI  PIU  IL 

PRIMO  CHE  "‘•••E’  TRASPARENTE" 

:  "PREMI  UN  TASTO  PER  CONT-.'" 
130  CALL  KEY(/,K,S) 

140  IF  S =fi  THEN  130 

150  CALL  CLEAR 

560  A=I 

170  B=2 

180  C=2 

190  D=32 

200  POR  X=I  TO  15 
210  FOR  Y=I  TO  24 
220  CALL  COLOR ( A, C , C ) 

230  CALL  HCHAR(Y,B,D,2) 

240  NEXT  Y 
250  A=A+I 

1260  B=B+2  I 

270  0=0+1  I  FRANCO IV 

280  D=D+8 
290  NEXT  X 

300  GOTO  300 _ 


FRANCOMPUTER 


100  CALL  CLEAR 

IIO  REM  ESERCIZIO  SULLE  NOTE 
120  PRINT  "  STAI  ASCOLTANTO 
UN  ESEMPIO"; "DI  COME  IL  Tl/99 
SUONA":"  LE  SUE  NOTE"::::::: 


130  FOR  K=I  TO  48 
140  READ  A 

150  CALL  SOUND  (250, A, 3) 

160  NEXT  K 

170  DATA  110,117,123,131,139, 
147,156,165,175,185,196,208, 
220,233,247,262,277,294,311 
180  DATA  330,349,370,392,415, 
440,466,494,523,534,587,622, 
659,698,740,784,831,880,932 
190  DATA  988,1047,1109,1175, 
1245,1319,1397,1480,1568, 
1661,1760 


100  REM  NOMI  IN  ORDINE  DI 
ALFABETO 

HO  CALL  CLEAR 

120  PRINT  "  PER  TERMINARE  PRE 
MI  ZERO  "QUANTI  NOMI  VU 

01  ? 

130  INPUT  "NUM.  "  :  N 

140  IF  N=0  THEN  490 

150  REM  IL  VALORE  DI  DIM()  VA 

STABILITO  PRIMA  COME  MAX. 

160  DIM  AjS  (100) 

170  REM  CON  IO  NOMI  OCCUPA 

K  1,150;  CON  100  NOMI  K  1,300; 

CON  1000  NOMI  K  3,350 

180  REM  INIZIA  IL  CICLO  DEI 

NOMI  DA  ORDINARE 

190  FOR  X  =  1  TO  N 

200  PRINT  "NOME  ";(I); 

2 IOINPUT  A/  (I) 

220  NEXT  I 
230  M=N 
240  T=M/2 
250  M=INT  (T) 

260  IF  M=0  THEN  400 

270  K=N-M  | 

280  J=1 

290  I=J 

300  L=X+M 

310  IF  A^(I)<=A^(L)  THEN  370 
32  0  T^=A^(I) 

330  A/(I)=A/(L) 

340  A/(L )=T/ 

350  X=I-M 

360  IF  J>  =1  THEN  300 
370  J=J+1 

380  IF  J>  K  THEN  240 
390  GOTO  290 
400  CALL  CLEAR 

410  REM  CICLO  DI  STAMPA  CON  IL 
CONTROLLO  PER  PASSARE  ALLO 
SCHERMO  SUCCESSIVO  DOPO  AVER 
SCRITTO  20  NOMI  IN  ORDINE 
420  FOR  X=  1  TO  N 
430  IF  (1/21)0  INT(T/2I)  THEN 
470 

440  PRINT  :  "  PER  CONT.  PREMI 
UN  TASTO  /  ENTER" 

450  INPUT  W£ 

460  CALL  CLEAR 
470  PRINT  A/(I) 

48D  NEXT  I 
490  END 

ATTENZIONE  LE  VARIABILI  HANNO 
UN  SIGNIFICATO,  NON  CAMBIARLE 
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PROGRAMMA  DI  TRASFORMAZIONE  ANGOLARE 


di  FRANCESCO  CIMADORI 


La  conversione  angolare  avviene  da  sessagesimale 
(  H.M.S.)  a  sessadecimale  (  H  .  )  *  e  viceversa. 

Se,  per  esempio,  avete  un  angolo  sessagesimale 
di  41  gradi,  3  primi,  27.2  secondi,  l'input  d£ 
vrà  essere  del  seguente  formato:  41.03272 
Il  programma: 

40  CALL  CHAR(l30,"00  30  48  48  30") 

20  CALL  CHAR(l31,"00  20  20  20") 

30  CALL  CHAR(  132,'.' 00  28  28  28") 

40  INPUT  ANG 

50  GOTO  60  (oppure)  GOTO  140 
60  REM  da  H.M.S .  a  *H. 

70  a=int(ang) 

80  B= ANG-A 
90  C=INT(B*100)/60 
100  D= (B*100-C*60)/36 
1  1 0  ANGOLO^ A  +  C  +  D 

120  PRINT  "ANGOLO  S ES S A  DEC .  =  " ;  A NGOLO 
130  GOTO  40 

140  REM  da  H.  a  -*H.M.S. 

150  a=int(angs) 

160  B=ANG- A 


170  C=B*60 
180  D=INT(C) 
190  E=  (C-D  )^-60 
200  A$=STR^(A) 


210  D$=STR$(d) 

220  E^=STR$(lNT(E) ) 

230  F^=  STR$(  (INT(  ( E-V AL ( E  £)  ) *1 00  )  )/lOO) 

240  PRINT  "  ANGOLO="8(A4V' V' 

250  GOTO  40  ^  \  \ 

260  END  (CTRL  B)  (C'^LC)  (C\RLl>) 
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LA  RISPOSTA  ALLA  DOMANDA  ODE  MI  FANNO  TUTTI  I 
PICCOLI  PROGRAMMATORI  CHE  VOGLIONO  SUBITO  C.OS: 
TRUIRE  I  GIOCHI.  COME  SI  FA  A  FAR  MUOVERE  UN 
CARATTERE  ?  (  in  questo  caso  un  omino) 

CIOÈ'  LA  CALL  KEY 

ECCOVI  ACCONTENTATI  ! 


100  CALL  CLEAR 

HO  CALL  CHAR(  129  *  "  18 18FF  3C3C2^i  2424") 

120  C=1  ~ 

130  R=1  -nj 

l40  CALL  HCHAR(RtC,129)  rHJ 

150  CALL  KEY(5,C0D,ST)  • 

160  IF  ST=tf  THEN  150 

170  IF  POS("ESDX",CHRS'(COD),l)=É$  THEN  150 
180  CALL  HCHAR(R,C, 32) 

190  C  =  C  -  (COD=83)*(C  >l)+(C0B=68)*  (C<32Ì 

200  R  =  R  -  (COD=69)#(R  >l)+(COD=88) #  (R<24) 

210  GOTO  l40 


FRANCOMPUTER 


LE  DISEQUAZIONI  ALLE  LINEE  190  E  200  SONO  I  LIMITI  ENTRO 
CUI  SI  MUOVE  L'OGGETTO.  IN  QUESTO  CASO  UTILIZZIAMO  TUTTO 
LO  SCHERMO,  INFATTI  1<C  < 32  e  1 <  R < 24 .  MA  PER  AREE  PIU' 
PICCOLE  BASTA  MODIFICARE  OPPORTUNAMENTE  I  VALORI. 


COLONNE 


2  4  0  H  1U  12  M  10  IH  20  22  24  20  2H  30  32 

I  l  3  t  5  l  7  I  0  t  II  I  13  I  IS  I  17  i  IH  |  21  l  23  \  25  J  27  I  29  l  31  1 
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SPRITE  EDITOR 

SCOPO  i  II  programma  calcola  l’identificatore  di 
SPRITE  Single  o  Doublé  Sized  creato  da  Voi  sullo  schermo  3U  una 
griglia  16x16  ingrandita  otto  volte.  Oppure  visualizza  sulla  griglia 
lo  Sprite  di  cui  Voi  date  l'identificatore  di  sagoma.  Potete  in 
ogni  momento  modificare  a  piacere  la  sagoma  visualizzata  e  ri— 
calcolare  la  stringa  corrispondente. 


DESCRIZIONE  :  Dopo  la  sigla  viene  stampata  la  griglia  ed  il  menu 
principale.  Esaminiamo  le  varie  opzioni  possibili  s 

1  WRITB  Con  questa  opzione  potete  creare  la  sagoma  desiderata 
sulla  griglia  o  correggere  una  sagoma  già  visualizzata. 
All'inizio  compare  un  quadratino  in  alto  a  sinistra.  Esso  si 
muove  usando  i  tasti  E  S  D  X  secondo  le  frecce  sulla  tastiera. 
Ci  sono  quattro  possibilità: 

OVER  :  il  quadratino  é  blu  e  pasca  sulle  caselle  senza  modi¬ 
ficarle.  SET  :  il  quadratino  é  nero  ed  "accende"  le  caselle 
che  attraversa.  RESET  :  il  quadratino  é  bianco  e  " spegno"  le 
caselle  che  attraversa.  Per  cambiare  "modo"  premere  il  numero 
corrispondente  al  "modo"  desiderato.  Premendo  il  4  si  torna 
al  menu  principale. 

2  DISPLAY  :  questa  opzione  calcola  l’identificatore  di  sagoma 
(i.S. )  dello  Sprite  visualizzato  stilla  griglia.  L'I.S.  é 
stampato  a  gruppi  di  otto  caratteri.  Ad  ogni  due  gruppi, 
dall* alto  in  basso,  corrisponde  un  caiattore  della  griglia 
secondo  il  seguente  schema  : 

Cioè  il  primo  carattere  é  quello  in  alto  a  sinistra, 
13  e  l'ultimo  quello  in  basso  a  destra.  Una  volta 
*  24  stampato  1*  I.S.  il  programma  vi  chiede  il  colore 

da  dare  allo  sprite  e  quindi  ve  lo  mostra  fermo  in 
grandezza  normale  e  ingrandito  in  movimento.  Potete  rivedere 
lo  sprite  con  un  colore  diverso  rispondendo  "N"  alla  domanda 
"PINE  ?  (S/N)"  altrimenti  si  toma  al  menu  principale. 

3  stringa  :  questa  opzione  visualizza  lo  sprite  corrispondente 
all' I.S.  da  voi  inserito.  Dovote  inserirò  la  stringa  in  gruppi 
di  otto  caratteri. 

Ogni  sedici  caratteri  il  programma  mostra  il  carattere  grafico 
relativo.  Alla  fine  potete  vedere  lo  Sprite  secondo  le  modalità 
dell'opzione  2. 

4  NEW  :  serve  a  cancellare  la  sagoma  presente  sulla  griglia. 

5  FINE  :  Pone  termine  all'esecuzione  del  programma. 

U,Pft06««MrtA  £’  AbtOiIlftlLE.  iti  CAS&ffA  A  llftÉ  40*000  - 
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Una1  delle  domande  che  mi  sono  sentito  più  spesso  rivolgere  nella 
mia  brev&  esperienza  di  utente  TI  99  è  stata  "  SPIEGAMI  LA  GESTIO= 

NE  DEI  FILES  Chi  mi  faceva  tale  richiesta  non  era  solo  come  si 

potrebbe  immaginare  adolescenti  inesperti  e  al  loro  primo  computer 
ma  anche  amici  con  buone  esperienze  di  programmazione  acquisite  ma= 
gari  sulla  gloriosa  TI  59. 

I  motivi  di  ciò  vanno  ricercati  sopratutto  nella  impostazione  parti= 
colare  del  manuale  che  accompagna  il  nostro  TI  99»  La  sezione  che 
riguarda  i  "  files  "  è  chiarissima  dal  punto  di  vista  tecnico , basta 
leggere.con  attenzione,  ma  è  assolutamente  priva  di  esempi  di  utiliz= 
zo  cosicché  una  persona  che  ignori  il  significato  e  l'uso  di  FILES  e 
record  dopo  mezza  pagina  salta  magari  al  capitolo  della  grafica  che  è 
senz'altro  più  accessibile.  Inoltre  dai  programmo,  pubblicati  su  alcu= 
ne  riviste  potrebbe  dedursi  che  anche  professionisti  di  buona  esperien= 
za  (  &  dovrebbero  essere  almeno  tali)  hanno  idee  per  lo  meno  un  p©'  ne= 
buiose  su  questo  IMPORTANTE  ARGOMENTO.  Sarà  quindi  utile  spendere  qual= 
che  parola  in  più. 

FILE  E  RECORD 

La  traduzione  italiana  più  frequente  della  parola  FILE  è  "archivio". 
Infatti  un  FILE  non  è  altro  che  un  archivio,  cioè  un  insieme  di  infor= 
mazioni  logicamente  correlate  che  in  genere  vengono  conservate  per  suc= 
cessive  consultazioni  o  aggiornamenti. 

Ci  sono  infiniti  esempi  di  archivio,  anche  molto  vicini  alla  nostra 
esperienza  comune.  Sono  archivi:  L'  Agenda  degli  Indirizzi-  Il  libro 
delle  ricette-  L'estratto  conto  della  banca.  Etc.Etc.  Per  fissare  le 
idee,  consideriamo  un  esempio  banale:  Una  Rubrica  Telefonica.  Essa  non 
è  altro  che  un  elenco  di  nomi  e  numeri  telefonici  come  esempio.: 

GONZATO  FRANCO  0444/42  678 

SARTORIO.  MARCO  074  5/45  84  3 

ELIO,  BIANCHI  074l/22  746 

Capito  ?  Bene.  Ogni  unità  logica  di  informazione  di  un  File  si  chiama 
RECORD  LOGICO.  Nel  nostro  caso  un  record  logico  è  per  esempio  il 
FRANCO  GONZATO  0444/42678. 

Ogni  RECORD  può  essere  formato  a  sua  volta  da  CAMPI.  I  record  del  ns . 
archivio  sono  formati  da  TRE  CAMPI: 


CAMPO  Ni. 

NOME  DEL  CAMPO 

CONTENUTO 

1 

1! 

cognome 

II 

GONZATO 

2 

Il 

nome 

II 

FRANCO 

3 

fi 

numero 

II 

0444/42678 

Risulta  quindi  chiaro  che  un  File  è  una  struttura  gerarchica.  Le  ope= 
razioni  che  normalmente  si  compiono  su  una  Rubrica  Telefonica  sono 

1)  CREAZIONE  DELL'ARCHIVIO;  Quando  copiate  sull'agenda  che  avete  ap= 

pena  acquistata  i  numeri  che  volete  conservare, 

2)  AGGIUNTA  DI  UN  RECORD  ;  Quando  scrivete  il  numero  di  quell'amico 

o  meglio  amica  che  avete  conosciuta  al  mare. 

3)  CANCELLAZIONE  RECORD _ Quando  decidete  che  il  vostro  amico 

Carlo  e  antipatico  e  che  i  suo  numero  è  meglio  non  averlo. 

4)  MODIFICA  DI  UN  RECORD  :  Quando  il  vostro  dottore  di  fiducia  cam= 

bia  casa  e  quindi  numero  di  telefono. 

FRANCOMPUTER  I 

tcftLÌLfi  FilIPPo  I 


In  generale  queste  sono  anche  le  operazioni  che  si  compiono  su  qualun= 
que  tipo  di  archivio.  L'organizzazione  di  un  archivio  dipende  in  parte 
dalle  informazioni  che  esso  deve  contenere,  in  parte  dalle  operazioni 
che  volete  compiere  sui  record  che  lo  costituiscono.  Ad  esempio,  i  va= 
ri  record  logici  della  nostra  rubrica  telefonica  potrebbero  anche  ave= 
re  solo  due  campi: 

CAMPO  N,  NOME  DEL  CAMPO  CONTENUTO 

1  "  nome  "  FRANCO  GONZATO 

2  "  leief"  0444  4278 

Ciò  vuol  dire  che  una  volta  scelta,  in  base  a  ciò  che  dobbiamo  archi= 
viare,  l'unità  logica  di  informazione  o  record,  essa  potrà  essere  orga= 
nizzata  in  modo  diverso  a  seconda  delle  nostre  esigenze. 

Un'altra  operazione  fondamentale  che  di  solito  si  compie  sui  FILES  è 
l'ordinamento.  Esso  in  generale  può  essere  fatto  secondo  qualunque 
campo  del  record.  Ad  esempio  potremo  ordinare  i  nomi  della  nostra 
rubrica  alfabeticamente  oppure  per  numeri  telefonici  crescenti, 

Esistono  svariati  metodi  per  ordinare  un  FILE  ,  ma  su  di  essi  non  mi 
soffermerò.  Mi  preme  solo  ribadire  che  il  FILE  è  una  struttura  usata 
soprattutto  per  conservare  le  informazioni  a  computer  spento  e  come 
tale  ha  una  importanza  fondamentale,  VI  CONSIGLIO  PERCIÒ'  DI  APPROFON= 
DIRE  L'ARGOMENTO  su  testi  specifici  o  su  un  buon  manuale  di  program= 

mazione.  In  ogni  caso  altri  esempi  saranno  esaminati  più  avanti. 

IL  TI  99/4A  E  I  "FILES" 

A  differenzia  di  molti  altri  computer  della  sua  classe,  il  nostro  TI 
gestisce  i  FILES  in  modo  notevolmente  sofisticato,  sicuramente  alla 
altezza  di  macchine  più  potenti  e  costose.  Soprattutto  con  i  DISK  DRIVE 
offre  possibilità  molto  ampie,  tali  da  garantire  una  corretta  e  faci= 
le  gestione  di  grandi  masse  di  dati.  Nel  seguito  però  non  si  parlerà 

dei  DISK  DRIVE  (  fortunati  chi  li  ha  )  ma  del  più  plebeo  ma  non  meno 

utile  registratore  a  cassette. 

Tornando  al.  nostro  esempio;  la  rubrica  telefonica,  supponiamo  di  voler 
conservare  i  numeri  di  dieci  amici  che  abbiamo  memorizzato  in  due  vet= 
tori  di  dieci  elementi:  NOM$(l)  e  TEL$(l).  Il  puntatore  I  indica 
la  corrispondenza  tra  nomi  e  numeri.  Così,  ad  esempio  per  1=3  si  avrà 

NOM$  f  3 )  «  GONZATO  FRANCO 

TEL$ ( 3 )  =  0444/4 2678 

Il  nastro  record  logico  è  dunque  formato  da  due  campi  che  abbiamo  chia= 
mato  N0M$  (i)  e  TEL$  (i) 

Come  su  molti  altri  sistemi,  prima  di  utilizzare  un  File  dobbiamo  in 
qualche  modo  informare  la  macchina  delle  nostre  intenzioni;  è  questo 
il  senso  della  istruzione  di"apertura  file  "  che  sul  TI  99  ha  la  se= 
guente  sintassi:: 

OPENff  numero  file:  nome  dispositivo , organizzazione  file, tipo 
di  file,  modo  di  apertura,  tipo  di  record. 

Adesso  andiamo  ad  esaminare  più  da  vicino  i  parametri  da  definire: 

NUMERO  DI  FILE  ;  Può  essere  un  intero  tra  1  e  255  compresi.  Serve  ad 
identificare  nelle  istruzioni  del  programma  il  file  di  riferimento. 

HOME  DISPOSITIVO:  Identifica  il  registratore  che  vogliamo  usare.  Può 
essere  il  "  CSI  "  o  il  "  CS2  ". 

ORGANIZZAZIONE  FILE:  Con  le  cassette  può  essere  solo  SEQUENTIAL  cioè 
sequenziale.  Questa  dichiarazione  può  essere  omessa  una  volta  speci= 
fidato  l'uso  del  registratore. 

MODO  DI  APERTURA  :  "  IMPUT  "  se  vogliamo  leggere  dati  dal  nastro 

OUTPUT  se  invece  vogliamo  scrivere  dati  SUL  NASTRO.  Ricordate  che 
il  "CS2"  cioè  il  secondo  registratore  non  può  leggere  dati  ma  solo 
scriverli.  Così  se  il  pome  dispositivo  è  "  CS^"  il  modo  di  apertura 
può  essere  solo  OUTPUT. 


vV 

TIPO  DI  FILE  ;  INTKRNAL  o  DISPLAY;  questo  e  un  punto  importante  su 

cui  mi  soffermerò  in  seguito.  Se  non  specificate  il  "tipo  file",  il 
calcolatore  lo  assume  DISPLAY. 

TIPO  RECORD  :  Per  le  cassette  può  essere  solo  FIXED  cioè  possiamo 

usare  solo  record  FISICI  di  lunghezza  fissa .' Possiamo  però  sceglie= 
re  tra  record  lunghi  64,  128,  ly2  caratteri.  Non  sottovalutate  la 
importanza  di  questa  scelta:  in  molti  casi  può  risultare  addirittu= 
ra  determinante  per  l’efficienza  dei  programmi.  (  e  attenzione 
quando  non  si  specifica  la  lunghezza  del  record  essa  viene  assunta 
uguale  a  b*+  caratteri.  ) 

Una  volta  utilizzato  il  File,  per  informare  il  calcolatore  che  deve 
chiudere  il"canale  di  comunicazione"  con  il  dispositivo  esterno,  è 
disponibile  una  semplice  istruzione: 

CLOSE  ^  Numero  di  file 

dove  ■  numero  di  file  "  è  il  numero,  assegnato  nella  OPEN,  del  file 
che  vogliamo  chiudere.  Naturalmente  ci  sono  ancora  le  istruzioni  più 
importanti,  quelle  che  ci  permettono  di  leggere  e  scrivere  dati  mate= 
rialmente  sul  nastro.  Esse  sono  rispettivamente 

INPUT  numero  di  file  :  lista  di  variabili 
PRINT  ^  numero  di  file  :  lista  di  variabili 

A  parte  il  fumerò  di  file,  esse  hanno  una  sintassi  molto  simile  alla 
PRINT  ed  alla  INPUT  normalmente  usate  nei  vostri  programmi.  Il  moti= 
vo  è  che  il  TI  99  gestisce  come  Files  anche  la  tastiera  ed  il  video 
ed  assegna  loro'  il  numero  di  file  uguale  a  <6.  Infatti  le  istruzioni: 

100  PRINT  "  CIAO  CIAO  " 
e 

100  PRINT  :  "CIAO  CIAO" 

oppure 
IIO  INPUT  A$ 
e 

IIO  INPUT  *  0  :  A$ 

Sono  perfettamente  equivalenti.  Tornando  al  nostro  esempio,  supposto 
acquisito  precedentemente  il  contenuto  dei  vettori  N0M$  (i)  e  TEL$  (i) 
(  cioè  il  nome  ed  il  numero  di  telefono  dei  nostri  amici)  per  regis= 
trarrlo  su  nastro  potremmo  scrivere  le  seguenti  istruzioni: 

300  OPEN  Ifl : "CSI" ,  INTERNAL ,  OUTPUT,  FIXED 

310  FOR  1=1  TO  10 

320  PRINT  1ftl:N0M$(l) ,TEL$(l) 

330  NEXT  I 
34 0  CLOSE  tfl 

E  qualora  volessimo  rileggerlo: 

500  OPEN  f[2  :  "CSI",  INTERNAL,  INPUT,  FIXED 

510  FOR  1=1  TO  10 

520  INPUT  $2  j  N0M$ ( I ) ,  TEL$(l) 

530  NEXT  I 
540  CLOSE  tf2 

Notate  come  sia  necessaria  una  perfetta  corrispondenza  dell'ordine 
di  scrittura  con  quello  di  lettura,  ciò  per  evitare  che  variabili  di= 
verse  si  scambino  i  contenuti.  Sia  per  i  Files  INTERNAL  che  per  quel= 
li  DISPLAY,  le  variabili  da  stampare  su  un  record  devono  essere  sepa*= 
rate  da  una  virgola,  un  punto  e  virgola  o  due  punti.  Quando  la  lista 
di  variabili  termina  con  uno  di  questi  separatori,  la  successiva  is= 
trazione  riguardante  il  file  fa  riferimento  al  record  precedente. 


Volendo  registrare  i  record  del  nostro  esempio  in  formato  DISPLAY 
avremmo  dovuto  scrivere: 

300  OPEN  :  "CSI " ,  DISPLAY,  OUTPUT,  FIXED 
310  FOR  1=1  TO  IO 

'  320  PRINTfl2  :  NOM$(l)  ;",";TEL$(l) 

330  NEXT  I 
340  CLOSE  2 

e  per  rileggerli  basta  cambiare  l'istruzione  500  in  :  500  OPEN  ^2  : 
"CSI ", DISPLAY , INPUT , FIXED 

Se  la  lunghezza  delle  variabili  da  scrivere  sul  record  supera  la  ca= 
pacità  fissata  del  record  stesso,  non  si  ha  un  FILE  ERROR,  ma  l'ulti= 
mo  dato  diventa  il  primo  del  record  successivo.  Per  evitare  errori  di 
lettura,  tuttavia  è  bene  che  anche  in  questo  caso  si  valuti  attenta= 
mente  il’ numero  di  caratteri  delle  variabili  da  stampare. 

Nelle  normali  operazioni  di  lettura/scrittura  da  nastro,  consiglio 

senz'altro  il  formato  INTERNAL.  Ma  resta  da  stabilire . 

QUANTI  CARATTERI  DOPO  IL  FIXED  ? 

Abbiamo  già  definito  un  record  logico:  esso  è  l'unità  logica  di  infor= 
inazione  di  un  archivio.  Abbiamo  però  parlato  anche  di  RECORD  FISICO: 
nel  nostro  caso  esso  è  la  porzione  fisica  di  nastro  su  cui  vengono 
registrate  le  informazioni»  Ogni  volta  che  scrive  un  RECORD  FISICO 
il  nostro  computer  si  ferma  per  qualche  attimo  (  o  meglio  ferma  il 
registratore).  Noi  abbiamo  la  possibilità,  attraverso  la  istruzione 
OPEN  di  stabilire  quanti  caratteri  esso  debba  stampare  per  ogni  record 
fisico  (  64 ,  128,  192).  Tornando  al  nostro  esempio,  supposto  che  i  no= 
mi  dei  nostri  amici  siano  lunghi  al  massimo  20  caratteri  e  riservando 

10  caratteri  per  il  numero  di  telefono,  il  nostro  RECORD  LOGICO  è  lun= 
go  al  massimo  32  caratteri  (  infatti  due  caratteri  indicano  la  lunghez 
za  delle  stringhe  NOM$(l)  e  TEL$(l) 

Per  come  abbiamo  descritto  il  programma,  però,  il  record  FISICO  è 
lungo  6*4  caratteri»  Rimangono  perciò  inutilizzati  ben  32  caratteri. 

La  prima  soluzione  che  ci  viene  in  mente  è  registrare  2  record  logici 
per  ogni  record  fisico.  Ma  se  consideriamo  che  la  differenza  di  tempo 
di  registrazione  per  ogni  record  tra  un  FIXED  64  e  un  FIXED  192  è  di 
soli  due  secondi  risulta  lampante  che  la  soluzione  ottimale  è  registra 
re  6  record  logici  per  ogni  record  fisico  lungo  192  caratteri.  In  soli 
8  secondi  dunque  stamperemo  6  dei  nostri  record  logici  contro  i  6  se= 
condi  necessari  a  registrarne  uno  solo  nel  nostro  primo  programma  • 

pi  come  possiamo  fare  lo  diamo  nella  pagina  seguente.  E  come  potete 
vedere  il  ciclo  di  FOR  sulla  variabile  I  serve  a  dividere  i  due  bloc= 
chi  di  registrazione,  mentre  il  FOR  sulla  J  (  linee  220,  230,  240  ) 
serve  a  scrivere  sullo  stesso  record  FISICO  cinque  dei  nostri  record 
logici  ognuno  formato  da  un  norne  ed  un  numero  di  telefono. 

Ciò  è  possibile  in  quanto  l'istruzione  23O  termina  con  una  virgola. 
L'istruzione  25O  stampa  il  sesto  record  logico  e  chiude  la  stampa  sul 
record  fisico  precedente  perchè  non  termina  con  alcun  separatore. 

Lo  stesso  discorso  vale  per  la  routine  di  input. 

11  segreto  dunque  per  una  corretta  gestione  dei  file  è  nello  sceglie= 
re  sempre  una  FIXED  192  ed  ■  impacchettare  "  il  maggior  numero  di 
informazioni  possibili  in  192  caratteri  con  un  accorto  uso  dei  sepa= 
rator i . 


I» 


ESEMPIO 


200 

210 

220 

230 

240 

250 

2b0 

27O 


300 
310 
320 
330 
34  0 
350 
360 
370 


OPEN  £  2  s 
FOR  1=1  TO 
FOR  J=I  TO 
PRINT  2  : 
NEXT  J 
PRINT  (ff 2  : 
NEXT  I 
CLOSE  #2 


"CSI" , INTERN AL , OUTPUT, FIXED  1 y2 

i2  STEP  6 

1+4 

NOM$ ( I ) ,TEL$(j ) , 

NOM$( j) ,TELÌ( J ) 


e  per  rileggere: 


OPEN  ^2  :  "CSI",  INTERNAL, INPUT, FIXED  1^2 

FOR  J=1  TO  12  STEP  6 

FOR  J=I  TO  1+4 

INPUT  n(2  :  N OMi  (  J  )  ,  TEl4  (  J  )  , 

NEXT  J 

INPUT  ^ 2  :  NOM$(j) ,TEL$(j) 

NEXT  I 
CLOsE  fl2 


CONCLUSIONI 


ANCHE  SE  OTTIMIZZAR]:/  PROGRAMMI  CHE  GESTISCONO  FILES.PUO' 
NON  SEMBRARE  FACILE,  ALMENO  A  CHI  AFFRONTA  PER  LA  PkIMA 
VOLTA  SIMILI  PROBLEMATICHE,  ALLA  LUCE  DI  QUANTO  FINORA 
DETTO  I  PUNTI  DA  CONSIDERARE  NON  SONO  MOLTI.  CON  UN 
PO’  DI  PRATICA  E  DI  ACCORTEZZA  TUTTO  SEMBRERÀ 1  PIU'  FACI= 
LE  E  GRATIFICANTE  SOPRATUTTO  PER  CHI  NON  SI  ACCONTENTA 
PIU'  DI  STUPIDI  GIOCHIMI  E  CERCA  DI  AFFRONTARE  ARGOMENTI 
PIU'  "  SERI  "  MA  NON  PER  QUESTO  MENO  DIVERTENTI. 


FRMI  COMPUTER 
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IL  TI  99  DEX  GRAFICA 


DOPO  IL  TI  DEX  (  VERSIONE  PER  TESTI)  PRESENTATO  NEL  PRIMO  NUMERO  DEL= 

LA  RIVISTA  SI  AGGIUNGE  QUESTO  PROGRAMMA  PER  LA  GRAFICA  REALIZZATO  DAL 
NOSTRO  BRAVO  CERULO  FILIPPO  CHE  ORMAI  TUTTI  CONOSCONO. 

QUESTA  VERSIONE  PERMETTE  UNA  MIGLIORE  GESTIONE  DELLA  GRAFICA  DEL  COM= 
PUTER.  LA  PARTE  MODIFICATA  E  QUELLA  RELATIVA  ALLA  DEFINIZIONE  CARATTERI. 
INFATTI  E*  POSSIBILE  ORA  DEFINIRE  15  CARATTERI  GRAFICI  DISPONIBILI  PER 
LA  SCRITTURA  DELLE  PAGINE  PREMENDO  I  TASTI  CORRISPONDENTI.  INOLTRE  SI 
PUÒ*  SCEGLIERE  4  COLORI  TRA  I  16  DISPONIBILI  PER  LO  SFONDO  E  PRIMO  PIANO 
CIO*  VI  PERMETTE  DI  TRACCIARE  SULLE  PAGINE  CON  ESTREMA  FACILITA'  DISEGNI 
ANCHE  MOLTO  COMPLESSI  COME  E'  DIMOSTRATO  NELL'ARCHIVIO  DIMOSTRATIVO  IN= 
CLUSO  NEL  PROGRAMMA.  ARCHIVI  RELATIVI  AI  PIU'  SVARIATI  ARGOMENTI  SARAN= 
NO  PRODOTTI  IN  UN  PROSSIMO  FUTURO  ASSIEME  AD  UN  PROGRAMMA  CHE  PERMETTERÀ 
DI  LEGGERLI  ANCHE  SOLO  CON  IL  TI  BASIC. 

DESCRIZIONE la  GRIGLIA  E  FORMATA  DI  6  SAGOME  (  quadrati  di  8  X  8  ) 
CHE  HANNO  IDENTIFICATORI .QUELLI  PIU»  IN  ALTO  123 

QUELLI  PIU'  IN  BASSO  456 

1 )  "SET :  PER  REALIZZARE  IL  DISEGNO  BISOGNA  PRIMA  SELEZIONARE 

CON  IL  SET  E  POI  UTILIZZARE  I  TASTI  E  S  D  X. 

IN  QUESTO  MODO  SI  DISEGNA  E  SI  CANCELLA  PREMENDO  IL  TASTO 
4  OPPORTUNAMENTE. 

2)  STRINGA  :  BASTA  SELEZIONARE  LA  SAGOMA  DI  CUI  SI  VUOLE  LA 
STRINGA  ESADECIMALE  E  ATTENDERE.  IL  RELATIVO  DISEGNO  VERRÀ' 
STAMPATO  A  DESTRA  DEL  VIDEO. 

3)  DISPLAY;  SELEZIONATE  PRIMA  LA  SAGOMA  POI  SCRIVETE  LA  STRIN= 

ga  e  battete  enter. 

4)  NEW  ;  SOLO  CON  IL  MODO  NEW  IL  DISEGNO  SULLA  GRIGLIA  VIENE 
CANCELLATO  TRANNE  SE  SI  SELEZIONA  DISPLAY. 

5)  DRAW;  CON  DRAW  OTTERRETE  SU  VIDEO  CIO'  CHE  E'  DISEGNATO 
SULLA  GRIGLIA  PREMENDO  %  POTETE  OTTENERE  IL  DISEGNO  IN 
PICCOLO  CON  TUTTI  I  COLORI  PER  LO  SFONDO  E  I  CARATTERI. 


I 


IL  PROGRAMMA  E'  DISPONIBILE  PRESSO  IL  CLUB  A  LIRE  20.000  (  N.304  ) 
COME  AL  SOLITO  IL  50  %  DEL  RICAVO  VANNO  ALL'AUTORE  DEL  PROGRAMMA 


\L  I 
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ÌOO  REM 
1 1 O  REM 
120  REM 

130  REM  *  BY  W.K. BALTHROP  * 

140  REM  W’ffl  VERSION  2.2.  1XB 
150  REM 

160  CAEL  CLEAR  11  CALL  SCREEN(16):i 
DIM  DC(4) 

170  RESTORE  2220  :c  GOSUB  2280  i:  Q 
D5UB  2280  I l  GOSUB  2280  l l  GOSU 
B  2330 

ISO  CAEL  CHAR <96, -FFFFFFFFFFFFFFFFO 
O" III  CAEL  COLOR (9, 2,3» 

190  SMI *9  l:  SM2-169  i:  DI,D3,D3-9 
::  D2-193  li  04-20)  Il  06-209  l 
l  OC  (2)  ,DC(3>  ,DC<4) -IO 
200  CALL  AR<0,0,0,3) 

|210  CALL  CLEAR  ss  RESTORE  2240  il  F 
OR  X-l  TO  6  li  GOSUB  2280  II  NE 
IT  X  li  GOSUB  2300  II  B— VAL  I AN4 ) 


1 V  'w-  .  c 


fctefaiiffclU  flLÓLilfl  Ili  liflLiAlJa  4 J  CA^SÉ'nA  1.10‘JCJ 


120  D14--UP-  ii  024--LEFT-  ti  034-- 
RIGHT"  li  D44-"DOMT  li  034- 'NO 
T  THAT  WAV-  il  D64--TAKE  OYNAMI 
TE" 

230  D74--0K-  il  DB4--NO  DYNAMI TE"  l 
S  D94— “DROP  DYNAMI TE"  Il  D104-" 
UGHT  FUSE*  i:  Oli»-"  INPUT  DIRE 
CTION1 

240  DI  24— "NO  DYNAMITE...-  Il  D134-- 
CAN'T  DO  THAT"  li  D144— "FUSE, BU 
RNINQ-  il  D154--SHAFT  13  CLEAR" 

250  D164— "GOLD?  — VALUE4"  si  D184-"D1 
RT."  i:  D 1 94— " SOL  I D  ROCK." 

260  D204— “GRANI  TE"  SI  02 1 4— “FLOOD  ? " 

D224-" YQU*  VE  BEEN  KILLED  )R 

_ A"  si  D234--BLAST"  , 


270  CALL  CLEAR  il  RESTORE  2230  li  8 
OSUB  2280  li  RAND0H1ZE 
280  FOR  X-l  TO  B430  n  P1-INTIRND41 
»)♦!  li  P2— INT  IRND42B)  +  1  n  CM, 
L  AR(P1,P2,Ì2,2>  •  i  NEXT  X 
290  FOR  X-l  TO  B420  il  Pl-INT IRND41 
9>+l  ii  P2— INT (RND42B) +1  n  CW. 
L  AR(P1,PV,3,2) li  NEXT  X 
300  FOR  X-l  TO  B43  il  Pl-INT (RN041B 
>♦2  li  P2-INT!RND*27>+1 
310  CALL  ARIPl  ,P2,  5, 2)  I  •  CALL  IWIPl 
,  P2+ 1,3,2)  i  i  NEXT  X 
320  Pl-INT (RND*10>+10  il  P2-INTIRN0 
426)  -*-2 

330  FOR  FM-O  TO  2  • ■  NZ-INT (RND4131 
1+100  il  CALL  AH IP1 , P2+FM.NZ ,2) 
il  NEXT  FH 
340  P3— PI  i ■  P4-P2 
330  FOR  X-l  TO  IO 

360  Pl-INT  (RND491+P3-4  II  P2-INTIRN 
0*11) +P4-3 

370  IF  PI >14  OR  P2< 1  OR  P2>28  THEN 
360 

380  CALL  AR(P1,P2,  Z, l>ii  IF  Z<4  TRE 
N  NZ-INT (RND473) +26  il  CALL  Wt< 
PI , P2,NZ, 2) ELSE  DOTO  360 
340  NEXT  X 
400  FOR  X-l  TO  10 

410  .P1-INTIRND410I+10  II  P2— INTIRND 
1281+1 

420  CALL  ARIPl, P2,Z,  Dii  IF  Z<4  TLC 
N  NZ-INT (RND423) +10  li  CALL  ARI 
PI , P2, NZ , 2) ELSE  BOTO  410 
430  NEXT  X 
440  FOR  X-l  TO  20 


450  Pl-INT IRND(13>+3  II  P2-INTIRNDS 
28)  +1 

460  CALL  ARIPl, P2,Z, 1)11  IF  Z<4  THE 
N  NZ-INT (RND423)  +10  il  CALL  ARI 
P1,P2,NZ,2) ELSE  BOTO  430 
470  NEXT  X 
'480  FOR  X-l  TO  30 

490  Pl-INT iRND*IO>+2  II  P2-INTIRND* 
28)  +  1 

500  CALL  AR (P1.P2, Z, ! ) i ■  IF  Z(4  THE 
N  N  Z  —  I  NT  I RND  4 1 3 ) + 1 O  il  CALL  ARI 
PI , P2 , NZ , 2 ) ELSE  BOTO  490 
510  NEXT  X 

520  CALL  CLEAR  il  CALL  HCHARI3,  1,96 
,608)11  CALL  VCHARIl, 31, 117,96) 
ss  CALL  COLORI  12,7, 16) 

530  CALL  CHAR  I  104,  "06E64Z7E4247ODO9 
OOOOOO 1F7FDF  OOOO 1 00B04  3C3C3C  -  ) 
540  CALL  CHAR I 1 12, -01071C74C4040404 
OOOOOOO 1 07 1C70CO00 1 B7EC3" ) 

530  CALL  CHAR  (  1  15,  “OOOOOOBOE03BOE03 
.•  BOE0382E23202020FFFFFFFFFFFFFFF 
F-) 

560  CALL  COLOR  111,  13,  Di  i  CALL  CHAR 
1120,  " 1 072401 AOE6O4C0 1CB4239882 
2449908- ) 

570  CALL  COLORI  13,  13,  1)  l  ■  CALL  CHAR 
1 128, "7E42427E42427E42")  1 1  CALL 
COLOR  I  14,3,3) 

380  CALL  MCHAR  1 2,  24 ,  1 1 2)  i  s  CALL  HCH 
AR  <2,  28,  1 16)  •  i  CALL  HCFttR(l,23, 
113) 

390  CALL  HCHARI1, 26, 114>ll  CALL  HCH 
AR  I  I  ,  27,  1  15) 

600  CALL  SPRI TE  142, 106, 2, DI , D2, 43, 1 
06, 2,  D3,  D4, 44, 106, 2, D3, D6, 41,10 
4,  1  3,  SMI  ,  5M2) 

610  RESTORE  2260  il  BOSUB  2280 
620  K-O  i:  CALL  KEY IO, K, S> s l  SPI -18 
H1+71/B-2  II  SP2- (SM2+7)/B-2 
630  DISPLAY  ATI23,  Di'" 

640  IF  K— 69  T)CN  BOSUB  730  il  BOTO 
620 

630  IF  K-B3  THEN  BOSUB  B10  il  BOTO 
620 


660 

IF  K— 68 
620 

THEN 

BOSUB 

900  il 

GOTO 

670 

IF  K— 88 
620 

THEN 

BOSUB 

990  li 

BOTO 

600 

IF  K-BO 

THEN 

1030 

690 

IF  K— 76 

THEN 

1140 

700 

IF  K-77 

THEN 

1810 

710 

IF  K— 13 

THÉN 

2200 

720  BOTO  620 
730  A4-D14  il  BOSUB  2320 
740  IF  8P1<1  THEN  770 
750  IF  SP1-1  THEN  780 
760  CALL  AR(BP1-1,8P2,Z,1>||  IF  Z-8 
THEN  780 

770  A4.-D59  il  GOSUB  2310  is  RETURN 
780  A4-D74  li  GOSUB  2310  si  SPI -SPI 
-1  il  SMI -SMI -8  il  CALL  LOCATE! 
#1,SM1,SM2) 

790  IF  QAR-1  TTEN  CALL  LOCATE  («CARI 
, SMI , SM2) 

800  RETURN 

810  A4-D24  ■■  BOSUB  2320 
820  IF  SP2-1  THEN  770 
830  IF  3P1-0  THEN  880 
840  CALL  AR ISP1 , 8P2— 1, Z, 1 ) 1 1  IF  Z-7 
OR  Z-8  THEN  870 
B30  IF  Z-6  THEN  870 

860  A4-D3*  Il  BOSUB  2310  il  RETURN 
870  IF  SPI— 1 9  THEN  880  ELBE  CALL  AR 
ISPl+1 , SP2, Z, 1 > I i  IF  Z-7  THEN  2 
190 

880  SP2-SP2-1  s  i  8M2-SM2-8  i  ■  CALL 
LOCATE  IBI, SMI, SM2) i •  IF  CAR-1  T  ( 
HEN  CALL  LOCATE (4CAR1 , SMI ,  8M2) 
890  RETURN 

900  A4-D34  l •  BOSUB  2320 
910  IF  SP2-2B  THEN  770 
920  IF  SPl-O  THEN  970 
930  CALL  AR (SPI , SP2+1 , Z, 1 > l I  IF  Z-7 
OR  Z-8  THEN  960 
940  IF  Z-6  T)CN  960 
950  A4-D3*  il  BOSUB  2310  is  RETURN 
960  IF  SPI  — 19  THEN  970  ELSE  CALL  AR 
IBPI«I,aP2,Z,l)ii  IF  Z-7  THEN  2 
190 


970  BP2-SP2+1  il  BM2-BH2+8  •  i  CALL 
LOCATE  ( I 1 , BM1 »  3M2 1 1  >  IF  CAR-1  T 
HEN  CALL  LOCATE  («CARI , 8M1 , SM2) 

980  RETURN 

990  AI-D4I  Il  0OSUB  2320 

ÌOOO  IF  SP1-19  THEN  770 

1010  CALL  Mt(SPl+l,SP2,Z,l)it  IF  Z< 

7  OR  2  >8  THEN  AI-D3I  ■■  BOSUB 
2310  ■■  RETURN 

1020  IF  Z<  >8  THEN  OOTO  2190  ' 

1030  8P1-BP1+1  i  ■  smi-smi*s  ■  ■  call 

LOCATE  (•!  ,SM1 ,SM2>  i  1  IF  CM-t 
THEN  CALL  LOCATE  (ICARI ,  SN1  ,  SN 
2» 

1040  RETURN 

1030  IF  CAR-1  ThfcN  1100  ELBE  AI-D6I 
il  QOSUB  2320 

1060  IF  sm -DI  AND  BN2-D2  THEN  CAR- 
1  CARI— 2  il  AI-D7I  Il  GOSUB 

2310  il  D1.D2-0  il  BOTO  620 
1070  IF  SN1-D3  AND  BN2-D4  THEN  CAR- 

1  I I  CARI— 3  i ■  AB-D7B  i i  QOSUB 
2310  il  03.D4-O  il  BOTO  620 

1080  IF  SH1-D5  AND  6H2-DÒ  THEN  CAR- 
I  111  CARI— 4  ■ ■  AI-D7I  I I  QOSUB 

2310  il  03,06-0  II  GOTO  620 
|  1090  AI-DBI  II  QOSUB  2310  il  BOTO  6 
20 

1100  AI-D9I  il  QOSUB  2320 

lllO  IF  CARI— 2  THEN  D1-SH1  il  D2— SM 

2  il  CAR-0  ••  BOTO  620 

1120  IF  CARI— 3  THEN  D3-SM1  D4-SM 
2  II  CAR-0  il  BOTO  620 
1130  IF  CARI -4  THEN  0S-SH1  ■■  D6-3M 
2  il  CAR-0  li  BOTO  620 
1140  AB— DI 06  il  QOSUB  2320  il  A6-D1 
16  il  QOSUB  2310 

1130  IF  CAR-0  OR  DCICARD-O  THEN  A* 
-D126  il  BOSUB  2310  il  BOTO  62 
O 

1160  BOSUB  2330 
1170  IF  K— 83  THEN  1210 

1180  IF  K— 68  THEN  1260 

1190  IF  K-BB  THEN  1290 

1200  CALL  SOUND (100, 330, 01  il  BOTO  1 
160 

1210  IF  SP2<2  THEN  A6-D136  II  BOBE* 
2310  il  BOTO  620 

1220  CALL  AR (SPI , 8P2-I , Z, 1 >  a •  IF  Z- 
7  OR  Z-B  THEN  A6-D136  ■ I  QOSUB 
2310  ■■  BOTO  620 

1230  CALL  BPRITE<63,  103,7, SMI, 8R2-8 
In  DC  (CARI  )-DC  (CARI  >-l 
1240  P1-SP1  II  P2-BP2-1 
1230  A6-D146  il  BOSUB  2310  il  BOTO 
1320 

1260  IF  SP2>27  THEN  A6-D136  il  S08U 
B  2310  il  BOTO  620 
1270  CALL  AR (SPI ,SP2*1 , Z, 1)11  IF  1- 
7  OR  Z-B  BEN  A6-D136  il  BOSUB 
2310  ••  BOTO  620 

12B0  CALL  OPRI  TE  <63, 103,7,  BH1 ,  8H2+S 
)■!  DC (CARI ) —OC (CARI  1  —  1  il  Pl- 
.BPl  li  P2-SP2+1  li  BOTO  1230 
1290  IF  8P1>1B  THEN  A6-D136  II  BOBU 
B  2310  I ■  BOTO  620 
1300  CALL  AR (8P1+1 , SP2, Z, 1 ) I I  IF  Z- 
7  OR  Z-B  THEN  A6-D136  II  BOSUB 
2310  il  BOTO  620 

1310  CALL  8PRITE(63,  103,7, SM1+B,SM2 
>11  DC (CARI )— DC (CARI ) ~1  li  PI— 
8P1+1  il  P2-8P2  il  BOTO  1230 
1320  TD-3 

1330  DISPLAY  AT<22,  17»|TD  II  BOSUB 
1730 

1340  TD-TD-1  li  IF  TD>-1  THEN  1330 
1330  FOR  EX— 1  TO  10  li  CALL  PATTERN 
(63,120111  CALL  PATTERN (63, 121 
In  CALL  SOUND  (300,  INTIRND6-3) 
-4,01ii  NEXT  EX 

1360  CALL  DELSPRZTE  (651  ■  ■  .IF  ABS(SP 
1-P1>:3  AND  AB8(SP2-P2><3  T1CN 
174C 

1370  CALL  AR(P1,P2,Z,  Hai  QRE-Z 
1380  IF  K  >88  THEN  1400  ELSE  CALL  H 
CHAR(P1*2,P2+2,1281ii  CALL  AR( 
PI  P2,S,21 

1390  CALL  HCHAR(P1  +  1  ,P2+2,  128)  1 1  Cl« 
LL  AR (Pl-1 , P2, B, 21 I I  OOTO  141U 
1400  CA-L  HCHAR(Pl*2,P2*2,321li  CAL 
L  -AR  (PI,  P2 ,7,2) 

1410  IF  0RE<4  THEN  A6-D136  il  BOSUB 
2310  ■ i  BOTO  620 

1420  IF  ORE >8  THEN  GOLD— BOLD+ORE  il 
"  DISPLAY  AT (24,21 ) i SOLO  il  A6- 
D166  li  QOSUB  2310  li  DISPLAY 
AT <22, 24) IDRE 
1430  IF  0RE<-8  '  >CN  1430 
1440  RESTORE  2270  il  FOR  CS-1  TO  3 
il  READ  68  il  CALL  SOUND (200XC 
8, SS, 01  II  NEXT  CS  n  BOTO  620 
1430  IF  ORE— 4  THEN  A6-D176  il  BOSUB 
2310  II  BOTO  620 
1460  CALL  HCHAFiMPl+2, P2+2,  1361 


1470  A6-D216  il  BOSUB  2310  II  CALL 

sound (ìooo, ìio.o, -a, oi i ■  aosui 

1730 

14B0  CALL  SOUND <300,  110,0,-3,0111  ( 
08UB  1730 

1490  1 F  P2<-1  THEN  1300  ELSE  CM.L  t 
R (PI ,P2-l , Z, 11 ■ i  IF  1-7  OR  Z-6 
THEN  1320 

1300  IF  P2>27  T>CN  1310  ELSE  CALL  F 
R(P1  ,P2-*-l ,  Z,  1 1 1 1  IF  z-B  OR  Z— 7 
THEN  1300 

1310  CALL  HCHAR(Pl-+2,P2+2,  1361 1 1  SO 
TO  620 

1320  P2-P2-1  li  CALL  HCHAR  (PI -*2, P2* 
2,136>ii  BOSUB  1730 
1330  CALL  AR  (P1,P2,3,  2) 

1340  IF  P1-BP1  AND  P2-8P2  THEN  2190 
ISSO  IF  PI  — 19  THEN  13*0  ELSE  CALL  A 
R(P1*1,P2,Z,  Il  ii  IF  Z—S  T1EN  8 
OTO  1640 

1360  IF  P2X>  T»CN  CALL  AR(P1,P2-1,Z 
,11  II  IF  2—7  OR  Z-B  TFCN  1320 
1370  CALL  HCHAR(P1«2,P2*2, 136)11  SO 
TO  620 

1380  P2-P2+1  li  CALL  HCHAR  <P1+2,P2+ 
2,136)11  BOSUB  1730 
1390  CALL  AR  (PI ,  P2, 3,2) 

1600  IF  PI— SPI  AND  P2— SP2  THEN  2190 
1610  IF  PI— 19  THEN  1620  ELSE  CALL  A 
R(P1*1,P2,  Z,  )  1 1 1  IF  Z— 6  THEN  B 
□TO  1640 

1621  IF  P2<28  THEN  CALL  AR  (PI  ,  P2-H  , 
Z.llll  IF  1-7  OR  Z-B  THEN  1380 
1630  C1LL  HCHAR  (  P 1 +2  ,  P2+2 ,  136)  I  ■  BO 
TU  620 

1640  P)-PI»1  il  CALL  HCHAR(PI*2,P2+ 
2,136)11  BOSUB  1730 
1630  CALL  AR (PI ,P2, 3, 2) 

1660  IF  Pi  -SPI  AND  P2-SP2  THEN  2190 
1670  IF  Pl-1 9  THEN  1680  ELSE  CALL  A 
R(PI*l,P2,Z,I)n  IF  Z-B  THEN  1 
640 

1680  RANDOMI ZE 

1690  IF  P2>27  OR  P2<-1  T1CN  1720 
1700  CALL  AR(Pl,P2+I,Z,l)n  CALL  AR 
(PI ,P2— l , ZI , 1 1 i i  IF  ( Z— 7  OR  Z- 
B) AND ( Z 1—7  OR  ZI— B1THEN  FL3-IN 
TIRN0I2H1 


1710  IF  FL3>0  THEN  ON  FL3  BOTO  1320 
.ISSO 

1720  IF  1—7  OR  Z-B  THEN  1380  ELSE  I 
F  ZI— 7  OR  ZI— B  THEN  1320 

1730  CALL  HCHAR(P1+2,P2+2,136)I|  BO 
TO  620 

1740  DISPLAY  AT (22,  1 1 1 D22»i D234  il 
BOTO  2200 

1730  CALL  KEY(0,K1, siili  IF  Bl-O  OR 
8—1  THEN  RETURN 

1760  IF  XI— 69  THEN  BOSUB  730  il  NET 
URN 

1770  IF  Kt-83  THEN  GOSUB  B10  il  RET 
URN 


1 780  IF  XI -68  THEN  QOSUB  900  n  RET 
URN 

1790  IF  Kl-BB  THEN  BOSUB  990  II  RET 
URN 

1BOO  RETURN 

1B10  DISPLAY  AT (23, Il i "MINE  IN  MHAT 
DIRECTION?" 

1820  CALL  KEYCO.KE.SElt:  IF  SE-O  TH 
EN  1820 

1830  IF  KE-B3  THEN  1870 

1840  IF  KE-6B  THEN  1970 

1 050  IF  KE-B8  THEN  2070 

1860  CALL  SOUND!  100,350,0)  ■  l‘  BOTO  1 

aio 

1870  DISPLAY  AT (24, l)SIZE(!6>l "MINE 
LEFT" 

1 360  IF  SP2<2  OR  SPICI  THEN  CALL  SO 
UND (50, 220,3) l s  GOTO  620 

1890  CALL  AR (SPI, SP2- 1 , Z , 1 1 i i  IF  Z< 
>1  THEN  1920  ELSE  CALL  AR(SP1, 
SP2-1, 7,2)11  CALL  HCHAR (8P1+2, 
SP2+ 1 , 32) 

1900  SM2-SM2-B  li  3P2-SP2-1  il  CALL 
LOCATE (41 , SMI ,SM2) l l  IF  CAR-1 
THEN  CALL  LOCATE  (ICARI  , SMI  ,  SM 
2) 

1910  AI-DI  SI  il  GOSUB  2310  il  BOTO 

620 

1920  IF  1-2  THEN  Al— DI 91  ■  i  BOSUB  2 
310  ■ l  GOTO  620 

1930  IF  Z— 3  THEN  AI-D20I  •  i  QOSUB  2 
310  il  GOTO  620 

1940  IF  1-7  OR  Z-8  THEN  DISPLAY  AT < 
22 , 1 1 t "ALREADY  MINED. *  Il  BOTO 
620 

1930  CALL  HCHAR  (SPI  +2,  SP2+1 , 321  ■  l  Q 
RE-Z  li  IF  DB  THEN  CALL  AR(8P 
1 , 8P2- 1,7,2) 

1960  Pl-SPI  II  P2-SP2-1  li  GOTO  142 
O 

1970  DISPLAY  AT  (24,  DBIZE!  16>i  "MINE 
RIGHT" 

1980  IF  SP2727  OR  SPICI  THEN  CALL  S 
□UND (50,  220,3)  ■  i  OOTO  620 


1990  CALL  AR(8P!.SP2*I,Z,  Dii  IF  ZC 
>1  THEN  2020  ELSE  CALL  AR(BP1, 
SP2+1 ,7,2)ii  CALL  HCHAR  (6P1+2, 
SP2+3.32) 

2000  SM2-SM2+B  n  SP2-SP2»!  i  ■  CALL 
LOCATE  (Il  ,  SMI  ,SM2)  1 1  IF  CAR-l 
THEN  CALL  LOCATE  (  ICAR I ,  SMI ,  SM 

2) 

2010  AI-D1BI  li  QOSUB  2310  n  BOTO 
620 

2020  IF  Z-2  THEN  AI-DI B*  1 1  BOSUB  2 
310  i i  GOTO  620 

|  2030  IF  Z— 3  THEN  AI-DI9I  il  BOSUB  2 
310  l i  OOTO  620 

2040  IF  1-7  OR  Z-S  THEN  DISPLAY  AT  ( 
22,  1)  l  "ALREADY  MINED."  n  BOTO 
620 

2030  CALL  HCHAR  (8PI*2,  BP2+3,  321  il  O 
RE-Z  il  IF  1  >8  TXN  CALL  ARCSP 
1 , SP2+1 ,7,2) 

2060  PI- SP 1  II  P2-SP2+1  li  BOTO  142 
O 

2070  DISPLAY  AT (24, I > SIZE ( 16) i "MINE 
DOWN." 

2000  IF  SPI  — 19  THEN  CALL  SOUND  (30, 2 
20, 3) i ■  GOTO  620 

2090  CALL  AR  (SPI  +1 ,  SP2,  Z  ,  1  >  i  ■  IF  Z< 
>1  THEN  2130  ELSE  CALL  AR  (SPI* 
l  »  SP2,  B,  2>ll  CALL  HCHM«<BPl-»3, 
SP2+2, 12S) 

2100  SPI— SPlc-1  ■  i  SM1-SM1+B  il  CALL 
LOCATE  (11,  SMI,  SM2)  ■  l  IF  CAR-1 
THEN  CALL  LOCATE  (ICARI ,  SMI ,  SM 
2) 

2110  AI-D1BI  li  GOSUB  2310  li  IF  BP 
IC1  THEN  BOTO  620 

2120  CALL  AR  (SPI  — 1 ,  SP2,  8,  2)  1 1  C MX 
HCHAR (SP1+1.6P2+2, 128)11  BOTO 
620 

2130  IF  Z-2  THEN  AI-0191  n  QOSUB  2 
310  il  GOTO  620 

2140  IF  Z— 3  THEN  AI-D20I  n  QOSUB  2 
310  ••  GOTO  620 

2130  IF  1-7  THEN  CALL  AR (9P1+1 , BP2, 
8,2)11  CALL  HCHAR(SPl+3,6P2+2, 
128)11  BOTO  620 

2160  IF  Z-B  THEN  DISPLAY  AT(22,  Di* 
ALREADY  MINED"  i t  GOTO  620 
2170  CALL  VCHAR(BPl+2,SP2+2, 128,2) I 

■  ORE-Z  il  IF  Z >8  THEN  CALL  AR 
(BP1-M  , 8P2,B, 2)  ■  I  CALL  ARtSPl, 
BP2,B,2> 

2180  PI— BP1*1  il  P2-SP2  li  BOTO  142 
O 

2190  DIBPLAY  AT  (22,  1  )  i  “  Y0U8  DEAD)" 
il  CALL  SOUND (2000, 220, 0)n  CA 
LL  BOUND(400O, 110,0) 

2200  CALL  DELSPRI  TE  (ALL)  1 1  DISPLAY 
AT (23, 13)i "SCORCI "|BQLD  il  DIS 
PLAY  AT(24, 1>|  "PLAY  AGAIN(Y/N> 
?" 

2210  ACCEPT  AT (24, 17) VAL I DATE ("YN") 

■  PAI  il  IF  PAI— "Y"  T)EN  SCORE- 
O  il  CAR-0  ii  GOTO  160  ELSE  CA 
LL  CLEAR  il  STOP 

2220  DATA  2,9, BOLO  RUSH,4,3,BY  M.  X 
.  BAL THROP, 24,  1, PRESS  ANY  XEY 
TO  BEBIN 

2230  DATA  12,7,STANDBY  PLEASE 
2240  DATA  1,1,LEVEL  OF  DIFFICULTYi , 
3,3, 1. MINE  C0OK,S,3,2.MINER’8 
HELPER, 7, 3, 3. APPRENTICE  HINER, 
9,3, 4. MINER 

2230  DATA  11, 3,3. MINE  FOREHAN, 24, 1 , 
YOUR  CHOICE7, 12343 
2260  DATA  24,  17,  "BOLO" 

2270  DATA  440,660,330,660,770 
2280  READ  XC, YC, Al  il  DISPLAY  AT1XC 
,  YC>  I  Al  il  RETURN 

2290  READ  XC,VC,AI  ••  DISPLAY  RT(XC 
,  YC)  ■  Al  ACCEPT  AT  (XC, YC+LBM 

(Al)  )  ■  ANI  RETURN 

2300  READ  XC,YC,AI,BI  n  DISPLAY  AT 
( XC, YC) i Al  il  ACCEPT  AT(XC,YC* 
LEN (Al) ) VAL I DATE <BI> ■  ANI  il  RE 
TURN 

2310  DISPLAY  AT<22,  ItlAI  il  RETURN 


2320  DISPLAY  AT  124,  l  )8IZE<  16)  |AB  II 
RETURN 

2330  CALL  KEY(0,K,8>||  IF  8-0  THEN 
2330  ELSE  RETURN 
2340  SUB  AR(P1,P2,Z,H> 

2330  IF  H<3  THEN  2370 
2360  DIN  HI  (19)11  mi-RPT*(CHRB(l), 
2B>||  FOR  X-l  TO  19  il  MI ( X ) -M 
NI  li  NEXT  X  II  SUBEXXT 
2370  IF  H— 2  THEN  2390 
2380  Z-A8C  (BEBKMI  (PI  >  ,F2,  1  )  >  I  ■  SUB 
EXIT 

2390  MI  (PI  )  -SEBI  (MI  (PI  >  ,  1  ,P2— 1  >  tiOR 
•  <  Z  >  6SESI (MI (PI ) , P2?l , 29— P2) • ■ 


SUBEND 


Rite 
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PROFILO  LONGITUDINALE  STRADALE 


Il  programma,  in  Basic  esteso,  elabora  dati  relativi  al  profilo  di 
una  strada. 

I  valori  che  devono  essere  immessi  sono  : 

-  le  distanze  parziali  (fra  picchetti) 

-  le  quote  del  terreno 

Istantaneamente  ad  ogni  picchetto  viene  calcolata  la  distanza  pro¬ 
gressiva  e  visualizzata. 

Lo  schema  di  lavoro  è  il  seguente  :  / 


numero  picchetti 


distanze  parziali 


distanze  progressive 


quote  terreno 


I  quote  progetto 
quote  rosse 

Dopo  l'immissione  dei  dati  si  può  verificare  la  correttezza  dei  va¬ 
lori  e  modificarli  : 

-  premendo  "C"  =  corregge  -  "R"  =  ricomincia  -  "T"  =  torna  indietro 

di  uno  -  "ENTER"  =  avanza  di  uno 

(Naturalmente  le  distanze  progressive  vengono  aggiornate  ad  ogni  corre¬ 
zione  di  distanze  parziali). 

Dopo  aver  scelto  il  tipo  di  livelletta  di  compenso  che  si  vuole  usare, 
il  TI/99  procede  con  1 'OUT-PUT  dei  dati  elaborati  : 

1  -  area  del  profilo 

2  -  Z  di  progetto  (quota  di  riferimento) 

3  -  pendenze 

4  -  quote  progetto  di  ogni  picchetto 
5  -  quote  rosse 

In  questa  fase  i  tasti  di  controllo  (  R,  T,  ENTER)  mantengono  le  ca¬ 
ratteri  stiche  suddette,  ma  "C"  permette  un  avanzamento  di  10  posizioni. 
Ulteriori  istruzioni  vengono  fornite  insieme  al  programma. 

Francesco  Cimadori 


IL  PROGRAMMA  E'  DISPONIBILE  COME  SEMPRE  PRESSO  IL 
CLUB  A  LIRE  £8.000.  COME  SEMPRE  IL  50  fi  VANNO  AL= 
AUTORE  DEL  PROGRAMMA.  SOCIO  FRANCESCO  CIMADORI  . 


IN  PREPARAZ IONE  ALTRI  2  PROGRAMMI:. 

1)  PROGETTAZIONE  DELLA  PLANIMETRIA  STRADALE  (  curve  mo¬ 
nocentriche  e  tornanti. 

2)  PICCHETT AMENTI  (  curve  circolari  con  5  metodi) 


CLUB 

COMPUTER 
TEXAS  TI  -  99 1 


-M  O 
W  U  U 
«3  4->  <J 


L-  4->  O 
ffl  i/i  È 
•r-  O  -r- 
U  E  4-» 
C  *— 
•r-  ito  3 
E  U  - 
O  C  i — 
U  11  r- 
•r-  >  fd 


«3  O  «“ 

-*->  E  co 
L.  "O 
O  01 


4J  c  o: 
-M  O  = 
OJ  -r- 

i-  N  O 


O  <U  X> 
r-  C  3 
O-  CO  l/l 


c:  *o  c 
o  >  o 

l/l  io  'r 
LO  M 

O  S-  C 
CX  Q)  3 
CX  4- 


•r-  OJ  O 

4-»  LO  C 

rrj  O 

XJ  co  03 

i-  e 

•e-  O  QJ 

4-» 

r0  =  C 

X-  O  co 

O  =  E 


O  rd 
«  4-1  X) 
M  4-*  C 
C  CD  O 

ra  cn  u 

4->  O  QJ 


r-  o  QJ 

U  -r-  r— 

N  n3 
QJ  rt3  -M 

C  NI  O 

O  N  4-» 


io  io  QJ 

r-  3  L 

U  LO  co 


O  O 

X.  > 

4-J  rei  <v 

LO  "O  • — 


U  QJ 

•r-  O  .C 

ex  Q_  u 


■  •  Ol| 

CO  C.  OJ 
CO  E  D 
O  U 


4-»  Ct  3 

lo  C  "O  i/l 

IO  Ql  IO  l/l 


O  M  > 

LO  C  •  IO 

U  <0  = 

3  OC 


4-*  QJ  ITI  C 
m  3  4-1 
*—0-0  0 
i—  3  4-* 

ai  ai  a  -M 

u  eri  =  qj 

e  ai  _c 

io  ai  io  u 

U  L.  i —  LI 

L.  r—  •«—  r 

Ito  O  3  ex 
U  O  LO 

U  C  (TJ  OJ 
CO  O  4->  -a 
ex  C  io 
E  O  — * 
o  aj  ex  l. 
u  l  i/i  ai 

LO  O  +j 


ai  co  io» 

>  io  a 

-O 

C  LO  ITJ  1 


io  Qj  4— 

IO  E  -r- 

a  ai  u 

C  QJ 

QJ  CX  CX  < 


CO  C  L/l 
4-»  O  = 
LO  CJ 


QJ  "O  QJ 
4-»  E 
a>  o  qj 

>  4->  L.  - 

O  to  ex  e 

XI  CO  ( 


4-»  4-»  ; 

QJ  4-»  / 

QJ  I 


«o  a>  e 

Ol  V-  u 

'*  ■  ai  io 


lo  03  Qj  C 

O  O  4-J  C 

ex  -r-  ai  ra 

C  r-  XZ 

'CD  03  r— 

u  cn  - — • 

■r-  OJ  ex 


i-  sz  <o  z 

QJ  O  4-»  QJ  UJ 
4-»  Z  IO  - - 


co  O  CU 
■r-  U  U  IO 
N  r—  O  t- 
C  03  lO  O 
CO  U  L.  U 
CX  3  C 
•—  O  (O 
tO  •<- 

N  r—  O) 
C  QJ  •«-  4-» 


4-»  QJ  LO 
C  3  -f- 

ai  cr  xi 

E 


cu*-* 
O  fO  QJ 
CJ  CX  "O 


LO  QJ  ■ 
■  *“  O  03 

01  Q.  cn  ■ 


io  C  QJ 

Ql  (O  U  • 

u  J  n  a 


lo  Qj  OJ 

LO  >  QJ 

co  O 

CX  X)  I 

C  QJ  OJ 

O  4J  L. 

eco 
Qj  lo  i 
QJ  E  3  \ 


© 
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PICCHETTAMENTI  DI  CURVE  STRADALI 


Vi 


di  Francesco  Cimadori 


Il  programma,  in  basic  esteso,  consente  di  calcolare  i  valori 
relativi  ad  una  curva  circolare  (Raggio,  Tangente,  3,  a.  Cor¬ 
da,  Freccia,  Sviluppo)  usando  il  sistema  di  misura  angolare 
centesimale  o  sessagesimale. 

La  curva  così  calcolata  può  essere  picchettata  con  5  metodi 
•diversi  : 

-  Ordinate  alla  Tangente  (con  suddivisione  dell'angolo  a) 

-  Ordinate  alla  Tangente  (con  suddivisione  dell'asse  x  in 
parti  uguali  Ax) 

-  Ordinate  alla  corda 

-  Coordinate  polari 

-  Radio-Tomi  co 

Questo  programma  fa  parte  di  una  biblioteca  di  topografia  ri¬ 
guardante  la  progettazione  di  una  strada  e  formata  dai  seguejì 
ti  programmi  : 

1)  PLANIMETRIA  STRADALE  :  calcolo  curve  e  tornanti 

2)  PROFILO  LONGITUDINALE  della  strada 

3)  PICCHETTAMENTO  di  curve  stradali 

4)  SEZIONI  TRASVERSALI  stradali  (2  pendenze)  -  disponibile  da 

dicembre 

Poi,  per  tutti  coloro  che  hanno  a  che  fare  con  la  topografia, 
uscirà  a  dicembre  un  programma  che  elabora  : 

a)  area  di  un  quadrilatero  (camminamento) 

b)  risoluzione  di  un  triangolo  (5  metodi) 

c)  area  di  una  figura  piana,  note  le  coordinate  cartesiane 
(Gauss) 

d)  trasformazione  angolare 

e)  area  di  una  figura  a  contorno  curvilineo 

f)  trasformazione  da  coordinate  cartesiane  a  polari  e  viceversa. 

Se  ad  esempio  avete  un  pentagono  potete  scomporlo  in  3  triango¬ 
li  e  alla  fine  il  calcolatore  vi  darà  l'area  totale  della  figura. 


I  b  PROGRAMMI  SONO  DISPONIBILI  A  LIRE  28.000  CADUNO  PRESSO 
IL  CLUB  CHE  NE  CURA  LA  DISTRIBUZIONE  E  LA  VENDITA  PER  CON= 
TO  DELL'AUTORE  CUI  VANNO  SEMPRE  IL  50%  DEL  RICAVATO. 


FRAIMCOMPUTER 
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PICCHETTAMENTO  DI  CURVE  CIRCOLARI 
di  francesco  cimadori 
PROGRAMMA  IN  EXTENDED  BASIC 


E'  DATA  LA  POSSIBILITÀ'  DI  OPERARE  CON  ABGOLI  CEN¬ 
TESIMALI  0  SESSAGESIMALI;  SE  SCEGLIETE  DI  USARE  GLI 
ANGOLI  SESSAGESIMALI  GLI  INPUT  DEVONO  ESSERE  DEL  SE 
GUENTE  FORMATO:  “ 

esempio  :  ^  s23°8'  44"  NOI  SCRIVEREMO  23,0844 
ORA  VIENE  RICHIESTO  IL  METODO  DI  PICCHETTAMENTO  CHE 
VOLETE  USARE  E  POI  I  VALORI  DELLA  CURVA  MONOCENTRI- 
CA;  I  DATI  CHE  VOI  CONOSCETE  DEVONO  ESSERE  IL  RAG¬ 
GIO  0  LA  TANGENTE  E  L'ANGOLOC<0  L’ANGOLO 
ESEMPIO  : 

C-ONOSCETE  LA  TANGENTE  E  L’ANGOLO  ; 

PEGGIA  SULLA  RIGA  "INPUT  RAGGIO?"  E 
*  FATE  CAPIRE  AL  CALCOLATORE  CHE  IL 
GNITO .  INFATTI  VI  VERRÀ'  CHIESTA  LA 


IL  CURSORE  LAM- 
PREMENDO  ’ENTER 
RAGGIO  E'  I NC  0  - 
TANGENTE. 


LA  STESSA  COSA  E'  VALIDA  PER  L'ANGOLO^  0  L’ANGOLO 


TRASCRIVETE  I  DATI  RFLATIVI  ALLA  CURVA  E  SCRIVETE 
IL  NUMERO  DI  PICCHETTI  CHE  VOLETE  U T I L I Z ZA RE( ( IL  ME 
TODO  LO  AVETE  SCELTO  IN  PRECEDENZA):  IL  CALCOLATORE 
ACCETTA  SOLO  NUMERI  PARI!. 

VIENE  COSTRUITA  UNA  TABELLA  GRAFICA  DI  LAVORO  E  I 
VALORI  SONO  VISIBILI  IN  9  TERNE. 

FINITO  IL  CICLO  IL  PROGRAMMA  RICOMINCIA  CHIEDENDOVI 
IL  METODO  DI  PICCHETTAMENTO  E,  QUESTA  VOLTA,  APPARI 
RA':  "CAMBI  DATI  (s/n)?"  ( LA  DOMANDA  E'  RIFERITA  AI 
DATI  DELLA  CURVA). 

GLI  ESEMPI  CHE  SEGUONO  SONO  RELATIVI  A  10  PICCHSETI. 
COME  NOTERETE  IN  FASE  DI  OUTPUT  DATI  DEI  PICCHETTI 
NE  VERRÀ'  VISUALIZZATO  UNO  IN  PIU'  IN  MODO  DA  AVE¬ 
RE  TUTTA  LA  SEMI  CURVA  CALCOLATA  ESSENDO  SIMMETRICHE 
LE  DUE  SEMI C URV E  (FATTA  ECCEZIONE  PER  IL  METODO  RA- 
DIOTOMICO  DOVE  I  PICCHETTI  SEGUONO  TUTTO  LO  SVILUPPO 
DELLA  CURVA). 


ORDINATE  ALLA  TANGENTE 


NOTATE  CHE  IL  RRI_ 
MO  PICCHETTO  HA 
COORDINATE  NULLE 
E  L'UNDICESIMO 
PICCHETTO  E’  IN 
MEZZERIA  DELLO 
SVILUPPO  CIRCOLA¬ 
RE  . 

IN  ALTO  VIENE  VI 
SU A  LIZZATO  L'ANGO 
LO  ^  DATO  DA 


ICCHETTI 


ORDINATE  ALLA  TANGENTE  CON  DX 

E'  COME  IL  METODO  PRECEDENTE 
MA  L'ASSE  X  VIENE  DIVISO  IN 
PARTI  UGUALI  (DX)  X  Q 

Pie 


^<SC}(0 


OKDINATK  ALLA  CORDA 


trecci  A 


<-0  RbA, 


A  \ 

/  /  / 

ì  v  y 

J  /  j 

!  /\  /  y 

1 J  X  /\ 

l/T/V 

XAHGttO^C 


VIENE  PICCHETTATO  SOLO 
META'  SVILUFPO  ESSENDO 
SIMMETRICO  RISPETTO  L'  AL 
TRA  META'  - 

IL  J°  PICCHETTO  HA  ASCIS 
SA  NULLA  E  ORDINATA/U- 
GUALE  ALLA  FRECCIA; 

L ' ULTIMO  (il)  HA  CO- 

-  ORDINATE  NULLE. 

\  IN  ALTO  VIENE  VISUA 

\  LIZZATO  L'ANGOLO  % 

\  DATO  DA 


/PICCHETTI 


COORDINATE  POLARI 


« 


1 


ANCHE  QUI  VIENE  PICCHETTATO 
SOLO  META'  SVILUPPO 
IL  1°  PICCHETTO  HA  COORDI¬ 
NATE  POLARI  NULLE  E  L'  UL¬ 
TIMO  (il)  HA  COORDINATE  PO 
LARI  COINCIDENTI  L'APICE 
DELLA  CURVA. 

IN  ALTO  VIENE  VISUALIZZATO 
L'ANGOLO  ^  DATO  DA 


/PICCHETTI 

A  V 


RADI O-TOMICO 


LA  CURVA  VIENE  PICCHET¬ 
TATA  TUTTA  :  IL  1°  E 
L'ULTIMO  CICCHETTO  (il) 
SONO  I  PUNTI  DI  STAZIO¬ 
NE  DEGLI  STRUMENTI 
E  ^  SONO  ANGOLI  DA¬ 
TI  DALLA  RELAZIONE 


Y  =  f-1 


IN  ALTO  APPARE  L'ANGOLO  DI 
INCREMENTO  DATO  DA  _ 

ò 


PAo&ftAtfriA  lJ.214 
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BESCRlZION^DEL^OGEAMjiA^U^OUTIWE^PIXE^^Al^jrRCLE^ 

Occorre  premettere  che  le  funzioni  CIRCLE  e  TRAIL  sono  indivisi¬ 
bili  dalla,  finizione  PIXEL  (da  loro  utilizzata). 

Tali  funzioni  servono  per  sfruttare  da  linguaggio  extended  basic 
la  massima  risoluzione  video  del  TI  99  fossia  192  X  256  pixel. 
Quindi,  righe  e  colonne  vendono  fornite  a  tali  funzioni  con  valori 
compresi,  rispettivamente,  tra  1  e  192  e  tra  1  e  256. 

Il  programma  è  tale  che  il  flottaggio  di  un  punto  all'interno  di  un 
carattere  non  distrugge  o  falsa  l'informazione  che  vi  era  preceden¬ 
temente  memorizzata. 

FUNZIONE  "CIRCLE" - 


5** 


°vBùrj 

e . 


Con  una  istruzione  del  tipo: 

CALI  CIRCLE  (RI,  Cl,r) 
il  TI  99  disegna  sui  video,  in  alta  risoluzione,  un  cerchio  di  rag¬ 
gio  r  e  con  il  centro  situato  nella  riga  RI  e  nella  colonna  Cl; 
il  listato  (10000-10140)  è  molto  chiaro:  viene  utilizzata  l'equa¬ 
zione  della  circonferenza  date  le  coordinate  del  centro.  Per  evitare 
una  discontinuità  nel  tracciamento  del  cerchio,  viene  fatta  variare 


fi 


Il  programma  verifica  che  la  circonf erenza  non  esca  dal  video  e,  in 

tale  caso,  segnala  l'errore  e  ferma  l'esecuzione. 

FUNZIONE  "TKA1I" -  allego  il  diagramma  di  flusso 

Con  una  istruzione  del  tipo: 

CALI  TRAIL (RI , Cl, R2 , C2 ) 

il  TI  99  traccia  sul  video  un  segmento  fra  il  punto  di  coordinate  RI 
Cl  ed  il  punto  di  coordinate  R2,C2. 

Come  nella  subroutine  CIRCLE  è  stata  utilizzata  l'equazione  della  cir 


10500  -indirizzo  della  subroutine  PIXEL. Riga  in  R,  colonna  in  C 

10510  -se  è  la  prima  volta  che  viene  utilizzata  la  pixel  (ossia 

quando  V  è  uguale  a  zero),  vengono  eseguite  le  linee 
10520-10530-10540,  se  no  salta  alla  linea  10550. 

10520  -caricamento  in  HEX$  dei  codici  binari  ed  in  xé  di  quelli 
esadecimali  corrispondenti,  utili  per  le  conversioni  da 
esadecimale  a  binario  e  viceversa.  V  viene  posto  uguale 
ad  1  ed  contatore  caratteri  uguale  a  32. 


10530 


-codici  binari  ed  esadecimali 


10540  -codici  binari  edeesadecimali 

10550  -determinazione  della  riga  RI  in  bassa  risoluzione  (1-24) 
10560  -determinazione  della  colonna  CO  in  b.  risoluzione  (1-32) 


10570 

10580 

1C590 

10600 

10610 


10620 

10630 

10640 

10650 

10660 

10670 

10680 


—determinazione  del  P-esimo  elemento  da  variare  all'inter¬ 
no  del  codice  binario  che  sarà  ottenuto  come  traduzione  del 
codice  esadecimale  (da  variare)  dell'identificatore  di  sa¬ 
goma.?  può  variare  da  1  a  4. 

—determinazione  dell'elemento  E-esimo  da  variare  all'interno 
della  stringa  di  16  elementi  esadecimali  dell 'identificato¬ 
re  di  sagoma. 


-richiesta  del  codice  CAB  del  carattere  preesistente  nella 
posizione  richiesta. 

-richiesta  dell'identificatore  di  sagoma  £if> 


-se  si  tratta  di  attivare  il  pixel  in  un  carattere  libero, 
ossia  il  32  (spazio  vuoto),  viene  incrementato  il  contato¬ 
re  dei  caratteri  utilizzati  (CARZ)  ed  il  suo  valore  viene 
trasferito  anche  in  CAB  (utilizzato  in  10670).  La  tradu¬ 
zione  binaria  di  codice  esadecimale  deve  essere, logica¬ 
mente,  azzerata  trattandosi  di  un  carattere  "tutto  spento", 
l'esecuzione  passa  alla  linea  10640. 


-in  Zp  viene  posto  il  codice  esadecimale  da  variare  per  otte¬ 
nere  il  nuovo  identificatore  di  sagoma.. 

-emersione  dell 'esadecimale  Zp  in  vfi  binario  (di  4  elementi) 

-V^  viene  imposto  con  il  P-esimo  elemento  uguale  ad  "1" (attivo) 

-il  codice  binario  V|>  viene  ora  riconvertito  in  un  codice 
esadecimale  zja 


-viene  "ricomposto"  il  nuovo  identidTicatore  di  sagoma  (Bp), 
inserendo  nel  vecchio  Ap  il  nuovo  elemento ,  variato,  . 

-ri formattazione  del  carattere  CAB. 


—stampa  del  carattere  (l'istruzione  é  in  realtà  operativa  so¬ 
lo  se  si  tratta  di  un  carattere  appena  definita),  ossia  di 
un  pixel  attivato  in  un  carattere  "nuovo");  nel  caso  di  ri- 
definizione  di  un  vecchio  carattere, la  CALI  CIìAR  di  linea 
10670  lo  ristampa  già  di  per  sè. 


-fine  della  subroutine. 


10690 


.Listini!  5 

I  REM 


2  HE  fi  •  IWINKLE  • 

3  Hbfl 

4  REM  ENEO  LLLlli 

3  REM  99 'EH  VLKUION  1.6.1 

6  REM  AbOUT  4304  BYTES 

7  REM  HCJLD  DOWN  ANY  KEY  70  STOP 

DISPLAY 

U  CALL  SLHEEN(B) 

V  CALL  EOI  OHtV,  10,0) 

10  KEM  MHU'LU  NMNIU1M  LHAHHCItMS 

11  RANDQT112E 

12  F OH  J-l  IO  4 

13  FON  1-0  IO  lì. 

14  REM  Ot.NL HA  1  L  HANDUM  NtnlM  MS 
U  IWiN  O  ANI)  li* 

13  N-INI  I  U3-0»»>*NNU»  *U 
|6  REM  PUT  ON  CUNSTHAINlS  IO 
ELI  NANA  IE  CUHNERS 

17  ON  1*1  GOTO  19.21,23, 2/, 32, 34, 
40 ,40,40,40.  ‘32,  34,23,27,  19,21 

18  REM  TOP  U  SOI  1 UN  HOWS 

19  1F  N  >  1  TPEN  13 

20  DOTO  40 

21  IF  N-O  TMEN  40 

22  1F  N-0  THEN  40 

23  DOTO  13 

24  NEH  2ND  V  71 H  HOWS 
23  IF  N>3  THEN  13 

26  GOTO  40 

27  IF  N>12  THEN  15 

20  FQURTEST-N/4-1NT <N/4> 

29  IF  FOURTEST-O  THEN  40 


30  DOTO  15 

31  NLM  .IMI)  t  èlll  M(JWU 

32  IF  N>  /  1HEN  13 

33  GOTO  40 

34  IF  N-15  THEN  15 

35  EVENTEST-N/2-1NT (N/2) 

36  IF  EVENTESl-0  THEN  40 

37  GOTO  13 

38  HEM  4TH  E  3TH  HOWS  NO 
CONSTRAINTS 

39  REM  FOR  N>9  MUST  CONVERT 

TO  HE X  NOTATIUN,  NOIE  IN  HE 3 
NOIA  T  1  UN  A-IO.B-l  I  ,0*- 1  2  ETC. 

40  IF  N>9  THEN  41  ELUt  34 

41  UN  N-9  GOTO  42,44,46,40,30,32 

42  G4--A- 

43  OUTO  35 

44 

43  GOTO  33 

46  U*-“C“ 

47  GOTO  33 
40  Q*-“D" 

49  GOTO  53 

30  S4--E* 

31  GI  TO  33 

32  G*-“F" 

33  GOTO  53 

54  G*«STR*(H) 

55  HEX*-HEX*fcG* 

56  NE  IT  I 

37  CALL  CHAR  (95+J  ,  HEX*» 

38  GOTO  59 

59  FCX*-“" 

60  NEXT  4 

61  REM  DISPLAY  TITLfc 


63  CALL  CLEAR 

64  HEH  ...  UtìHDEH... 

63  FltH  UOL-6  IO  26 

66  N—  INI  (  (4-  1  ♦  1  >  *RND)  *■! 

67  CAL  L  HCHAR  114, 32-COL,  95+N) 

68  CALL  HCHAR  (  10,  COL,  95 +N) 

69  NEXT  COL 

70  FON  RONFIO  TU  14 

71  N-1NT(4*KND«-Ì) 

72  CALL  VCHAR(ROW,6,95*N> 

73  CALL  VCHAR (24— ROW» 26, 95*"N) 

74  NEXT  ROW 

73  REM  ...  TI  ILE. . . 

76  CALL  HCHAR (12, 10,32,14) 

7  7  HE  UT  URL  62 

78  FUH  1*1  TO  14 

79  HEAD  LEI  TER 
UO  CULUm-V»  I 

01  CALL  HCHAR  (  1 2,  CULUMN,  96) 

02  CALL  MC)»AH(  12tC0LUT*1,LEI  IERI 
63  Nili  1 

04  REM  .  .  .  TWIFKLE.  .  . 

03  C-O 

06  CULUT04-  INI  (  (26-6* I  )  *RND)  «6 
□  7  N— INT ((4-1*1) 4HND) ♦  I 
U0  CALL  HCHAR  (IO,  C0LLX91»  93«-N> 

89  C*M_L  HCH6W(14,32-C0UJHN,95*H) 

90  C-C»l 

91  IF  045  THEN  76 

92  CALL  KEV(0,K,G> 

93  IF  1031  THEN  93 

94  GOTO  86  /ffPft 

93  END  lj|0 


62  DATA  37, 57, 39, 69, B2, 32, 77, 65, 71 ,65,90, 73, 78, 69 


4»Utinfl4 


enne 


100  REM  ♦♦+♦♦*♦♦♦♦*♦♦♦♦♦♦♦♦•♦♦♦♦ 

110  REM  ♦  VERBOSE  ♦ 

120  REM  ♦  ♦ 

130  REM  ♦  BY  DAVID  G.BHADER  ♦ 

140  REM  ♦  ♦ 

150  REM  ♦  99 '  EH  VERSIUN  1.6.1  ♦ 

160  REM  ♦  * 

170  REM  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

ISO  HEM 

190  REM  SPEECH  MAKER  ROUTINE 

200  REM  W1LL  COMBINE  WORDfi  1N10  NEW  STRINGE. 

210  REM 

220  CM.L  CLEAR 

230  PR1NT  “  ♦  ♦♦  WORD  BUILDER  ♦♦♦"■  tilt 

240  PRINT  -ENTER  NUMBEH  OF  YIXJR  CHOICE"  I  » 

250  PRINT  i"  l  -  40 I N  TWU  WQNDS“(  I 

260  PRIN1  **  2  -  PRINf  SPEECH  DAIA'i  i 

2/0  PH IN  I  “  3  -  UIURE  NEW  WORD  UN  DISK”!  I 

280  PRINT  "  «  -  E»ll“l  i  l 

290  INPUT  CHOICE 

300  IF  t CHO I Cfc<  I  )  «-(CHOICE  >4  )  1  THEN22Q 

310  ON  CHOICE  G06UB  550,870,1100,330 
320  GOTO  220 
330  CALL  CLEAR 
340  END 


330  REM  ♦  ♦♦  TRUNCATE  F1RSTWORD  ♦  ♦♦ 

360  CALL  CLEAR 

370  INPUT  " TRUNCAIE  HOW  MANY  BYTE6?“ i BYTES 

360  NAXBYTES-LEN(B*>-3 

390  IF  BYTE6<  MAX  BYTES  THEN  420 

400  PRINT  "TOO  MANY  BYTES _ " 

410  GOTO  370 

420  IF  BYTE6 > - 1  THEN  450 

430  PRINT  “NO  NEGATIVE  NUMBERS* 

440  GOTO  370 

450  L-MAX BYTES- BYTES 

460  C*-££G»(B», 1 , 2) 6CHR4 (L) 6SEG4 (B4, 4, L) 

470  RETURN 

400  REM  ♦  ♦♦  SPEAK  NEW  WORD  ♦♦♦ 

490  CALL  CLEAR 

300  CALL  SAY ( “ “ . NEWDAT A* > 

510  INPUT  -BAY  AGA IN?  (Y  OR  N> "(CHOICE* 

520  IF  CHOICE*-“V“  THEN  500 
330  RETURN 

340  REM  ♦  ♦♦  JO  IN  TWO  WORDB  SUBROUT1NE  ♦♦♦ 
330  CALL  CLEAR 

360  PRINT  "ENTER  FIRST  WORD  TO  J01N“ 

370  INPUT  FIRST MONO» 

360  IF  FIRSTWORD*-LASTMAD£*  TfEN  610 
390  CALL  SPGET IF1H6TWORD*, B4) 

600  GOTO  620 
6(0  B*-LASTDATA* 

620  CALL  CLEWT 

630  PRINT  “ENTER  SECQND  WORD  TO  JD1N" 

640  INPUT  StCON DWORD* 

650  IF  6ECONDWORD*-LASTMADfc*  THEN  660 
660  CALL  SPGET (SLCONDWORD4 , D4 ) 

670  GOTO  690 
680  D4-LA6TDATA* 

690  CALL  CLEAR 

700  PRINT  “ENTER  THE  SPELLINO  OF  THE 
NEW  WORD" 

710  INPUT  NEWW0RD4 
720  REM 
730  GO  SUB  350 
740  NEWDAT A* -C*4D* 

750  GU  SUB  400 

760  PRINT  “  1  -  CHANCE  SOME  MURE"! 

•  2  -  BACK  TO  MAIN  MENU" 

770  INPUT  CHOICE 

700  IF  <CH01CE<1)+ (CHOICE >2)-- 1  THEN  760 
790  IF  CHOICE- 1  THEN  730 
0OO  L AST PIADE* -NE WWORD* 

010  LA6TDATA»-NEWDATA* 

620  RETURN 

030  REM  ♦♦♦  PRINT  SPEECH  DATA  SUBROUTINE  « 


640  REM - - - 

650  REM  TH16  OPEN  STATEfCNT  MAY  NEED  TO  BE  PODI F 1 ED 

860  REM  FOR  YOuR  PRINTER . 

870  OPEN  41 i “RS232/2.DA-8. BA-9600" 

660  REM  - 

690  CALL  CLEAR 

900  PRINT  "ENTER  THE  WORD  WHOSE  DATA 
YOU  WANT  TO  PRINT —  “ l  I  ■ 

910  BOSUB  1230 
920  IF  L-0  THEN  1070 
930  VALUE6»-"" 

940  PRINT  111  i  ("THE  WORD  IS  «4  " | WORD») "  **-» 

950  PRINT  • 1 I “LENGTH  »“ | L | "BYTES" 1  i 
960  FOR  1-1  TO  L 

970  VALUES»-VALUES»6STR* ( ABC (BEG* (F4, 1,1))» 

900  IF  1 / lO<  > 1 NT ( I / 1 0) THEN  1020 
990  PRINT  41 i “DATA  " | VALUES4 
lOOO  VALUES*-"" 

1010  GOTO  1030 

1020  VALUES4-VAMJEB41"," 

1030  NE  X  T  I 

1040  IF  VALUES*- “ “  THEN  1070 

1050  VALUES*-SEG» (VALUES»,  1  ,  LEN  (VALUES*  > -1  ) 

1060  PRINT  41 ("DATA  “ I VALUES* 

1070  CLOSE  41 
lOBO  RETURN 

1090  REM  ♦  ♦♦  ADD  NEW  WORD  TO  VOCABULARY  FILE  ♦♦♦ 

I ÌOO  CALL  CLEAR 

Ilio  PRINT  “PUT  THE  DISK  WITH  ““WORDB""  FILE  IN  DRIVE  ONE. 
1120  INPUT  “PRESS  ENTER  WHEN  READY  MiX4 
1130  PRINT  (  i  i “ENTER  THE  WORD  WHOSE  DATA 
YOU  WANT  TO  S AVE  —  “(Il 
1140  GOSUB  1230 
1150  IF  L-0  THEN  1200 

1160  UPEN  41 I "DSK1.WORDS", 1NTERNAL , APPEND, VAH J A8LE  254 
1170  PRINT  41 i MORD4 
1100  PRINT  R 1 I F* 

1190  CLUUb  41 
1200  RETURN 
1210  REM 

1220  REM  ♦  ♦♦  F1ND  WURD  SUBHOUIINE 
1230  INPUl  WORD* 

1240  F*-“" 

1250  IF  WOHU*~“"  IHLN  I  3uO 

1260  IF  WUHD6-L AG1MAOL*  THEN  1290 

1270  CALL  SPGET (WORD*, F*J 

1200  GUTO  1300 

1290  F »-LAS T DA T A* 

1300  L  -L  EN  (F  *  I 

1310  HE  IURN  LLffl 


Listing  2 


SAM( 


1  hem  imiimmii 

2  HEM  *  BAR -T  UPPER  « 

3  REM  IMMIIHIIIII 

4  REM  BY  FRED  ELL16 

5  REM  99* ER  VERSI OH  1.6.1 

6  REM  ABOUT  5392  BYTES 

7  REM  PRESS  ANY  KEV  TO 

STOP  DISPLAY. 1 

8  VENTI CALMAR -200 

9  SCALE -VENTI CALMAR/ 20 

10  CALL  CLEAR 

11  LABEL»— “ENTER  H0R6EP0WER" 

12  ROW- 12 

13  COLUTVX-IS 

14  G06UB  91 

15  LABEL*- “O  TO  209" 

16  ROW- 13 

17  COLUP**—  1 9 

10  GOSUB  91 

19  INPUT  “  -4 

HORGE  POWER 

20  CALL  SCREEN(B) 

21  CALL  COLOR (9, 13,0) 

22  CALL  COLORI  10,2,5) 

23  REM  DEF INE  CHARACTERS 

24  REM  FORMATI 
IDENTIFICATION*. 

CHARAC I ERNUMBER , 
l-£  X  ADE  C 1  MAL  * .  .  . 

25  REM  - GRID - 

26  DATA  GH1D  LINE, 91, 
OOOOOOOOOOOOOOF F , 

VERT1CAL  AX IS, 92, 
0101010I01010101 , 

TIC  MARK, 93, 

OIOIOIOIOI 01 01 7F 

27  REM  — DEF  INE  BAR  TOPS — 

28  DATA  BOTTQM  ROW  OF  PIXELS 
ON, 96 , OOOOOOOOOOOOOOF F , 
SECQND  ROW  ON. 97, 


OooOUOaXhjOu  offff  , 

THIRD  ROW  ON 

29  DATA  98, OOOOOOOOOOFFFFFF , 
F0UKIH.V9, 

OOOOOOOOFFFFFFFF  ,f  1F1M, 
1ÓO, OOOOOOFFFFFFFFFF, 
SIXTH, ÌOI , 
OOOOFFFFFFFFFFFF 

30  DATA  BEVENTH, 102, 
OOFFFFFFFFFFFFFF , 

E1GHTH, 103, 

FFFFFFF hhh FFFF FF 

31  REM  - BABELI  NE - 

32  DATA  BASE, 104, 

FFOOOOFF OOOOOOFF 

33  REM  DEF INE  LOOP 

34  RESTURE  26 

35  FOR  CODL-Vl  10  104 

36  READ  IDENTIFICATION», 
CHARAC I ERNUMBER, HEX* 

37  IF  CHARAC T ERNUMBER >CODE 
THEN  39 

38  GOTO  40 

39  CDDE-CHARACTERNUMBER 

40  CALL  CHAR I CODE, HEX») 


41  NEX1  CODE 

42  REM  SIAMI  SCHEI. N  DISPLAY  1 

43  REM  - SA  API!  GRID - 

44  CALL  HCHAR  *22, 13, 104, 18) 

43  FUH  ROW-/ I  IO  1  STEP  -l 

46  CALL  HOIAH (ROW, 14,91 , 17) 

47  NL  i  I  M 

40  LABEL*— “HORSEPOWER" 

49  ROW— 9 

50  COLUMN-1 
31  GOSUB  91 

52  CALL  VCHAHU,  13,92,21» 

53  FOR  ROW— 2 1  TO  1  STEP  -5 

54  AQWNUMBER-2U©- ( lOi  UlOW-1 ) > 

35  LABEL4-6TR* (RQWNUMBER) 

36  CULUMN- 10 

37  GOSUB  91 

30  CALL  HCHAR(KOW, 13,93»  ! 

59  NEXT  ROW 

60  REM  CAL CULAIE  BAR  HEIGHT 

61  BAHHE 1 GHT -HORSEPOWER/ SCALE 

62  Y-INT (BAR HEIGHT) 

63  REMA  I N OCR -BAR HE  1 GHT - INT 
(UARHE1GHT) 

64  CALL  VCHAR (22-Y, 16, 103, Y> 
63  CALL  VCHAR(22-Y, 17, 103,  Y1 

66  CALL  VCHAR (22-Y, 16, 103, Y) 

67  REM  SflECT  BAR  TOP 
66  TOPPA! IERN— INT 

( (REMA INDERtB) ♦ . 5 ) 

69  Ot  TDPPATTERN+1  DOTO  70, 

72, 74,76, 78,60,02,64,86 

70  CALL  HCHAR(21-Y, 16,96,3) 

71  GOTO  B8 

72  CALL  HCHAR (21-Y,  16.97. 1) 


73  GOTO  86 

74  CALL  HCHtft(21-V, 16,98,3» 
73  GOTO  68 

76  CALL  HCHARI21-Y, 16,99,3» 

77  GOTO  08 

78  CALL  HCHMX21-Y,  16, 100,3» 

79  GOTO  68 

60  CALL  HCHARI2I-V, 16, 101,3) 

61  GOTO  86 

62  CALL  FCHAR (21 -V, 16, 102,3» 

83  GOTO  66 

84  CALL  »1CFIAR  ( 2 1  —  Y  ,  16,  103,3) 

63  GOTO  68 

06  CALL  HCHARI21-Y, 16, 103,3) 
67  CALL  HCHAR 120-Y, 16,96,3» 
60  CALL  KEV (O, K , S) 

69  IF  6-0  TFCN  68 

90  END 

91  FOR  POS 1 T 1 ON- 1  TO 
LEN (LABEL*) 

92  LETTER»-SEG» (LABEL», 

POSI TION, 1 ) 

93  CODE— ASC (LETTER*) 

94  CAL.L  HCHAR  (ROW, 

CQLUMN- I ♦PDS 1 T ÌON, CODE ) 

93  NEXT  POSI TION 
96  RETURN 


Listing  2. 

ty.fi 


NOTE:  »-» 
Fot  Longer 
Loops  use  a 
Largar  DIM 


nth  iiiumimmimfi/ 

REM  |  «PRIVE  DEM)  • 

REM  UIMIIIHMIimitn 

REM 

Rfin  ev  FERNANDO  CARACENA 
REM  99'ER  VEHB10N  1.9.  US 
REM 

REM  DEM0N6TRAT IQN  OF  BARITE 
AM 1 MA 7 I QN  UBINO  CASSETTE 
OR  DISK  DATA  FILE, 
i  C ALL  ClEAR 
i  DIM  CHA*( 17) ,  ID*  l  17) 

>  CALL  CASTERIH6,  ID*()  ,CM*U  » 

I  FOR  1-0  70  NS  t i  CALL 
(XAA  i  1  36-4 1 1 ,  CHA»  (Iti 
i  NEXT  1 
I  CALL  CLEAR 

I  CALL  SPAI  Tfc  <*1,13*»,  2, 30,30,0, 
CALL  MAGMI  FY (4) 

I  FOR  1-0  TO  NS  il  CALL  PATTERN 
(■1 . 136-411 1 i i  CALL  DELAY  I 
i  NE IT  |  ii  BOTO  290 


260  END 

270  SUB  CASTER  (N,  1641  ,C*(>  » 
280  REM 

2^0  rem  miiiiiiiiiiimiii 

300  REM  SET  FlLE*-“p61"  FOR 
TIC  REM  T AFE  FILfcQi  USE  TOUR 
320  REM  FILE  NAMCi 
330  REM  "D6KI  .FlLENAMfc" 

340  REM  FOR  DISK  F1LES. 

390  rem  mimiMimnmi 

360  REM 

370  OPEN  *2iF ILE*, 1NTERNAL, 
INPUT  , F 1 XED  l 20 
3 SO  INPUT  *2iNAM«,N 
390  FOR  I — O  TO  N  ] 

400  INPUT  I2i 

l  NEI T  1  il  CLOSE  «2  | 

410  SUBEND 
420  SUB  DELAY 

430  FOR  1-0  TO  15  l»  NEI T  1 
440  SUBEND 


!"  SIS  C\/  fi  Listing  1. 

120  REM  llflIIIIMIMlMMlM  tr  A  *  V  ♦ 

130  REM 

140  REM  BY  FERNANDO  CAPACELA 
ISO  REM  99'ER  VERSI QN  1.3. li» 

160  OB_L  CHARSET  n  FOR  1-96  TO  143  il  CALL  OS*!  (  1 ,  ••»!»  NElT  I 
970  INPUT  -  DO  YDU  HAvE  A  TH6RMAL  PRINTER  (  Y/N)  ?"t  TP* 

180  DIM  Ott*(30> , ID* ISO» 

190  INPUT  “00  YOU  HANT  TO  INPUT  A  FILE  QF  CHARACTERS  F80M  TAPE 
OR  DISK  <Y/N>?-|AN*  il  1F  AN«<>“V“  ThEN  240 
200  DISPLAY  AT 124. 1 I •"FILE  NANE*  »•  ACCEPT  AT (24, 1 l > S1ZE ( IO) 

VALICATE IUALPHA, DISITI i NAM*  1 1  |F  POS IMAM*, "  “  ,  1  >  OO  THEN  200 
210  PAINT  "E  NT  EH  1‘  FOR  TAPE  *2'  FOR 

DISK-  Il  INPUT  "<1/2>?*I  AN* 

220  IF  AN*-“ 1 ’  THEN  DFIlE*-'CB1“  ELSE  IF  AN*--2"  THEN 
8F ILE*- "OGNI. "IMAM*  ELSE  GOTO  210 
230  CALL  CASTER IGF  ILE*, NS. ÌD*4) ,CHA*<» > ■ l  BOTO  230 
240  IF  AN*<  >“N*  THEN  190  ELSE  N8-G  li  GOTO  290 
230  IF  TP*— “N"  THEN  280 

260  OPEN  «li MTP. U. E. S“, OUTPUT  li  FOR  J-O  TO  N6 
270  PRINT  *liJ.ID*(Jlli  NEI T  J  il  CLOSE  *1 
200  N6-MS+1  II  C*-CHA*(0> 

290  FOR  I  —MB  IO  1 OOO 

300  CALL  DRAMER  (TP*.  C*.  MS.  ANI,  CHA*  0.1  D*  (Il 

310  DISPLAY  Al (2, 1) l ID* (NS) i •  DISPLAY  AT(22,l>iC* 

320  DISPLAY  AT  13.  1 1 1  “PRESS  WT  KEY  TQ  CONTINUE." 

330  CALL  KEY (O.K, Blu  IF  S-O  TI«N  330 


Listing  1. 


Orò»  ol  Program  E**eut»n 


CALL  CLEAR  n  1M>UT  "ENTER  CùlQR  CODE  FON  SPAITE.  • i COL 

CALL  CHAR (96, C* III  CALL  BARITE  161 ,96, COL, 30,30,0, -301 • t  CALL  MAGMI FY (4) 

DISPLAY  AT ( IO, 3li “PRESS  ANY  KEY  TO  CONTINUE. " 

CALL  KEY  (O.K,  Blu  IF  8-0  THEN  370  ELSE  CALL  DEL  SPAI  TE  (ALL) 

INPUT  ’DQ  YOU  MAMT  TO  SAVE  THE  CHARACTER  CODE  QF  TH1S  SPAI TE ( Y/N) ?• i AM» 

IF  AN*— " V"  THEN  CHA» (NB> -C* 

INPUT  "DO  YOU  WANT  TO  CONT 1  h*JE  <  Y/N>  ?"  I  AN*  li  IF  I8*6-“N“  TXN  430  ELSE 
IF  AN*<>"V*  THEN  400 
I  NB-NS-n 
-  NElT  1  II  END 

i  INPUT  "DO  YOU  W1SH  TO  BAVE  RESLLTS  ON  TAPE  OR  D 1 BK ( Y/N) 7" I AN* 

»  IF  AN»-’N"  THEN  510  ELBE  IF  AN*<>"Y"  THEN  430 

i  DISPLAY  AT (24,1 >i "ENTER  FILE  NAME"  il  ACCEPT  AT <24, 1 1 ) 61 ZE < IO) 

VALI  DATE  (UALPHA.  DIGIT)  IMAM*  il  |FPOS<NAH%,"  *,1)00  T«M  490 
*  PRINT  "ENTER  *1'  FON  TAPE  *2’  FOR  DISK"  li  lOTJT  "(l/2)7“iA 

>  IF  AN»— “ 1 "  THEN  SFILE»-"CB1"  ELSE  IF  AN»- "2“  THEN  8F lLE*-aDSKi . "6NAM* 

ELSE  GOTO  46U  _  _ 

)  OPEN  •  li  SF  ILE*.  INTERIM..  OUTPUT,  FI  XED  128 

>  PRINT  *1 i NAM», Nfi 


Spriter  . . .  from  p.  45 


Listing  3,  t-' 


500  FOR  K-0  TO  NS  II  PRINT  *HID*(K),  -  * 

CHA*  (K)  1 1  «*T  K  li  CLQ8C  *1  lOO  REM  UlililllllllllilllM  l 

310  END  110  REM  •  SPAI  TE  0€X)  2  *  V\fn 

520  SUB  BRANCA  (TP*,  C*.  NS,  AN»,CHA«  (  )  ,  »*>  '  q 

10*0  1  I  I  CALL  CHAR(33,RPT*("F",  16)  >  130  NEH  Q 

330  1 F  C»— * “  THEN  -580  1 *0  REM  99  *  ER  VERS I ON  1.5.  1 IB  _  — 

540  INPUT  "DO  YOU  «ANT  TO  1N1TIAL1ZE  HI  TH  A  HEM  OtMONBTRAT  ION  UF  SPRITE  ANI  NAT  |  QN  II 

PREVIOUSLY  0£F I NED  CXARACTER4 Y/N) 7" I AN*  USINO  DATA  STATEMEnTS  1  II 

350  r::;N;-r^c^'  *■- 0010  !*“ 

I  «nTT -ENTER  IhSci  0=  CHARACTER  180  00608  230  MASTER 

fST«BT  T0  "  "  ^  CH«. 

RECENTLY  DEFI  NED "iNOS  2(0  rf^  CLEAR 

970  IF  NOS<0  THEN  580  ELSE  C6-CHA6  (NOS)  •  220  CALL  SPA  I  TE  i  61 , 1 36,  2,  30,  30,  0, -101 1 1  CALL 

■  NII-ND6  li  GOTO  990  MAON1F V  < 4 ) 

580  NII-N8-1  230  FOR  1-0  70  N  I I  CALL  PATTERN ( *1 , 136-4» | )| 

590  H-16  li  IF  L£M(C*)-0  THEN  ,  G06Ufl  300  n  NElT  1  ir  GOTO  230 

C»-RPT»<-0;,64)i  I  F-O  ELSE  F-l  240  END 

600  IF  LENIC*)-16  THEN  C*-C*6RPT« 4 "0" , 48»  250  REM  SUBROUTINE  CASTER 

HO  MI  il  C1»-6EG»(C»,  1,  16)1  260  READ  NAH*,M 

l  C2*-6£G*(C*, 17, 16»  I  2  » O  FON  1-0  TO  N 

i  C3*-GEG*(C»,33.16)  i  280  READ  I» ( 1  » , C» ( I ) i .  NElT  1 

l  C4»-6EG*4C*,49, 16>  290  SET JAN 

620  PRINT  ‘USE  ARROW  KEYS  AMO  ' W.R.C.Z*  TO  300  REM  SUBROUTINE  DELAY 

MOVE  CURBOH.OR  TQ  CHANCE  POLARI  TY  Ilo  FOR  J-O  TO  19  l  1  NElT  J 

USE 'F* FOR  DARK  AND  'A' FOR  LlGHT."  320  AETuRN 

630  CALL  KEY  (O.K, 6)  il  IF  S-Ot  T)«N  630  - 

6404CAU.  CLEAR  il  CALL  HCHAAt 4. 4 , 30, M-2) I ■  CALL  HCHAR (M-5, 4 , 30, M+2) 

490  CALL  VCHAR  0,4, 30 , H I 1 1  CALL  VCNAA 1 3, H+Z, 30, M) 1 1  I.Y-3 
660  IF  AN*-" Y"  THEN  CALL  E IPRNDER ( C* , I , Y ) 

670  IF  NII >— O  THEN  DISPLAY  AT 12, I ) i IO* (NI X ) i i  D16PLAV  AT(22,1)|C» 

680  CALL  HCHAAU,  Y,3D,  Di  I  lO.YO-O  II  CALL  ADDP  II  (  *0,  VO,  N,  C»> 

690  CALL  KEY I 1 , K, 6) 

700  IF  S— O  THEN  69D  ELBE  IF  W-i  THEN  CALL  HCHAR U . V, 33, 1 1 
ELSE  CALL  HC161R  (I,  V,  32, 1  ) 

710  IF  K— 1  THEN  N-O 
720  IF  K— 12  THEN  N-l 
730  IF  K-5  ANO  I >5  THEN  I-I-I 
740  IF  K-O  AND  X<M-4  THEN  »•*♦! 

750  IF  K-2  AND  Y>5  THEN  Y-Y-l 
760  IF  K-3  AND  Y<M-»4  THEN  Y-V-l 

770  JF  K— 4  AND  X >5  THEN  IF  V>5  THEN  I-X-l  il  Y-Y-l 
780  IF  K-6  AND  X>5  THEN  IF  YvN*4  THEN  X-I-l  n  Y-V-I 
790  IF  K-15  AND  X<N-4  THEN  IF  Y >5  THEN  I-I*l  il  V-V-l 
800  IF  K—  1 4  AND  X<r»*4  THEN  IF  Y<M-4  THEN  >-*♦!  Il  V-V-l 
810  IF  K ■ I 8  THEN  900 

820  IF  174  AND  I< I 3  1HEN  1 F  Y/4  ANO  Y<13  IHEN  P- 1  ELSE  P-3 
ELSE  !F  Y  >4  AND  V<!3  THEN  P-2  ELSE *P-4 
830  IF  P-l  THEN  XO-X-5  il  YO-Y-5  il  CH»-*SfcG*  (C*,  I  ,  16) 

840  IF  P-2  THE.N  XO-I-13  il  VO-V-5  il  CH4-SEG»  (C* ,  1 7,  1 6) 

850  IF  P-3  THEN  IO-X-5  il  YO-V-13  il  CHt-SEG» lC», 33, 16) 

860  IF  P— 4  THEN  IO-I-I3  il  YO-Y-I3  il  CH4-SEG» lC», 49, io) 

870  CALL  ADDP 11 (IO. Y0,N,CH«) 

880  IF  P-l  ThEN  Cl»-CH»  ELSE  IF  P-2  THEN  C2»-CH» 

ELSE  IF  P-3  THEN  C3»-CH»  ELSE  C4*»-CH» 

89o  CALL  HCHAR (1, Y, 30, |> i i  C*-C 1 »VC2»EC3»EC4»  il  GOTO  690 
900  DISPLAY  AT (22, I) i "ENTER  BARITE  RAME."  il  DISPLAY  AT(23, l>i 
*"  li  01SPLAY  AT 124.  Ili"" 

910  ACCEPT  AT (23. Ir i 1D»(NG) 

920  IF  TP*-"N“  ThEN  SUBEIIT 

930  DISPLAY  RT 1 22,  I) I "WAN I  TO  COPY  ON  T.P.  (Y/N)?"  il  ACCEPT  AT(23,1>|AN» 

940  IF  AN6-"N"  THEN  SUBEllT  ELSE  IF  AN*<>"Y"  THEN  930 
950  DISPLAY  AT<2, 1) ■ ID*(NS>i i  DISPLAY  AT(22.1)|C* 

960  CALL  SCREEPT  l l  SUBEND 
970  SUB  ADDP  Ut  (1,  Y.N.C») 

9B0  DEF  BtA)*lNT  (NH/ I2AA)  )-2llNT(NH/ (2-"(A*l)  >  >  -f 

990  IF  Y< 4  THEN  Z-2»1^I  li  Y0-3-Y  ELSE  2- 2»«»2  li  YO-7-Y 


330  DATA  MAN6N81.12 

340  DATA  MAN» 1 , 000609 09O60FOFQF 1 E06ÙF0F 1 90804080000000 
0000000000000205080000000 

350  DATA  MAN* 2, 030404030707 2F 1 3030 30706060 207000080800 

*  08 090 DO  AO 808080 80 8080 8000 

360  DATA  PIM4»2.  3, 060909060FOFI72606060E1EA2420 10300000 

370  DATA  MAN*3, Ù0070903060FOF I 7 2F 060 6060F 09081 80000000 
0000000000000000000804080 

380  DATA  MANM4, 00001824 1COC1C2C4E160607060202060000000 
000CO0OOO0040A00O0O0O0000 

390  DATA  MAN»5,00000000000000387FDE9662428100010000000 
0000020508000000000008000 

400  DAVA  MANM6.0006I424140COCOCOC1C1E1E1E1DOCIOOOOOOOO 
OOOOO0OOOOOOOOOOOÓOOO8O8O 

410  DAI A  MAN»6. 5, 00000020201 84C7COC OC OC0606090E0400000 

oooooooooocKX>ooooooooooao80 

420  DATA  HAN07, 0OOOO0OO0OOOOO408O402F1E376640C0000O000 
000000000-4000000000804020 

430  DATA  MAN68.0000001 10A06030101010303062A 12060000008 
4 4850A0C OC 000800000000000 

44o  DATA  rV84» 1 . 00o60909O60F0F0F 1 EÙ60FOF 1 90804080000000 
OOOOOOOOOOOOO 209080000000 

430  DATA  MAN»3, OoO 7 09O3O60F0F1 7 2F0606Ó60F 09081 80000000 
0000000000000000000804080 

460  DATA  MAN»2. 9, 06o909060FOP’I  72606060C1EA2420 10300000 
000000080408000000000000000  _ 


1 OOO  A2»«SEG»(C»,Z, 1) 

1010  IF  Z>1  THEN  A1*-SEG»(C», l.Z-l) 

1020  IF  Z< 1 6  THEN  A3»-SEG» (C», Z*1 , 16-Z I 

1030  M-I-A6C  <  A2*  >  i  i  IF  -37  THEN  ELSE  8HM  99 

1040  IF  B  <  Y0> -O  AND  N-l  THEN  NM-NM-2*YO 

1050  IF  B  (  VQ>  - 1  AND  N-O  THEN  NH-P»4-2AY0 

1060  IF  NH<-9  THEN  A2»-STR» (NH) ELBE  A2*-CHR* (NH»55) 

1070  IF  1—16  THEN  C»-Al*6A2* 

1080  IF  2-1  THEN  C»-A2»fcA3» 

1090  IF  Z<  >16  ANO  IO»  THEN  C»-A1»6A2*6A3* 

11 VO  SUfatND 

1)10  SUB  EXPAMDEA (C*, IO, YO) 

1120  DEF  B(A>  -  INI  (NH/  12"  A)  I  -2i  1  NT  (NH/  (  2"“  (A*- 1  )  )  ) 

1130  FOR  1-0  TU  |5  ii  FOR  J-O  TO  19 
1140  IF  J >7  THEN  JO-J-B  ELBE  JO-J 
1150  IF  I >7  THEN  10-1-8  ELSE  10-1 

1160  IF  I  <  B  THEN  IF  J<8  THEN  L-l  ELSE  L-3  ELSE  IF  J<8  TXN  L-2  ELSE  L-4 
1170  IF  JO<4  THEN  I*2IIO<l  il  Y-3-JO  ELSE  Z-24IO-2  II  Y-7-J0 
libo  «in 

1190  A2»-SEG»(C», Z«16» IL-I ) , 1) 

1200  NH— ASC  (  A2»  >  1  •  IF  NH<-57  HOI  MwN(-4U  ELSE  NNNPM 
1210  IF  S< Y>— 1  THEN  CALL  HCHAR ( 104 1 , YO«J , 33, I > 

1220  NElT  J  il  NE IT  1  1 i  SUBEND 
1230  SUB  SCREEPT 

1240  OPEN  *259 i " TP. U. E. S“ , OUTPUT  il  FOR  X-l  TO  24  il  S6-«“ 

1230  FOR  Y*»l  TO  32  il  CALL  GCHARd,  Y,  Il  »  I  6»-S*6CHR*  (  1 1 
1260  NElT  v  ti  PRINT  *253i S»  li  NElT  1  il  CLOSE  *299 
1270  SUbEND 

I 280  SUB  CAB TER  IGF  ILE* ,N, 1*1) , C* ( ) ) 

1290  OPEN  *2i BF1LE*. INTERNAL, INPUT  .FIXEO  128  il  GOTO  1300 
1300  INPUT  »2iNAM*,N 
1310  FOR  1-0  10  N 

1320  INPUT  »2i  l*<  1 1  ,C*(  Dii  NElT  1  il  CLOSE  »2 

1330  N3-23  il  Nl-O  il  IF  N<-24  lHfcN  N2-N  ELSE  N2-23 

1340  FOR  1  -NI  TO  N2  il  IF  I  ••  1  nEN  1390 

1330  PRINT  I|]»U)i«  NEH  I 

1360  PRINT  "PRESS  ANY  KEY  i  .  CONTINUE." 

1 3 V O  CALL  KEY (O.K, Sili  IF  l  o  THEN  1370 

1380  IF  N >N3  THEN  Ni-Nl-24  n  N2-N2*24  il  N3^«3424  II  8010  1340  M 
1390  SUBEND  Elmi 


Comnting 

Fun 

By  Kolynda  Brantfey 

4282  Tdos  Drive  a 

Si  in  Deigo,  CA  92117  » 

You  and  your  best  friend  are  in  an  4 
enchanted  toy  chesi  counling  your  I 

favorite  playthings  over  and  over.  * 

The  toys  in  this  toy  chest  never  break  and 
never  get  lost.  In  fact,  thè  more  you  play 
with  these  toys  thè  more  toys  you  seem 
to  have. 

Does  this  sound  like  a  preschooler's 
dream?  Well,  in  a  way  it  is.  Counting  Furi 
began  as  a  way  to  motivate  mv  three-year- 
old  daughter  to  learn  to  count.  5ince  I 
wanted  her  to  be  drawn  into  thè  program, 

I  began  by  designing  pictorial  representa-  | 
tions  of  her  favorite  things:  ducks,  hearts, 
school  buses  and  her  special  pai,  ET.  My 
artistic  talents  leave  a  lot  to  be  desired.  But  > 
even  thuugn  Li .  ìooks  more  iike  a  gas 
pump  than  an  appealing  alien,  Karen  loves  — 
him.  Together  they  conquer  counting  and 
number  concepts  while  playing  in  thè 
never-empty  toy  chest  that  is  our  TI-99/4A.  SDe( 


Let's  Play 

The  screen  displays  two  Irnes  of  toys, 
with  0  to  5  toys  in  each  line.  Each  toy  an- 
nounces  its  appearance  with  its  own 
unique  sound.  The  bus,  for  example, 
honks  its  horn.  Those  who  have  a  Speech 
Synthesizer  might  want  to  have  ET.  say 
his  famous  line  when  he  Comes  on  thè 
screen. 

The  computer  asks  HOW  MANY _ > 

and  displays  three  miniature  pictures  of  thè 
toy  thè  child  is  supposed  to  count  in  thè 
two  lines  abo\e.  The  child,  therefore,  does 
not  have  io  be  able  to  read  to  enjoy  do- 
ing  this  program  activity  by  himself.  Cor- 
rect  answers  receive  an  audio  and  visual 
reward.  An  mcorrect  answer  is  indicated 
by  a  Hifforent  tane  and  followed  hy  a 
display  of  thè  correct  answer. 

After  thè  questions  have  been  asked  and 
answered,  an  encouraging  message 
designed  to  personalize  thè  game  and 
boost  thè  learner's  self-esteem  appears. 
The  message  I  LOVE  YOU  not  only  ac- 
complishes  both  of  thè  above  goals,  but 
it  is  also  a  friendly,  easily  recognizable 
message  for  any  child  to  read.  You  may 
want  to  change  thè  messages  from  lime 
to  time  after  your  preschooler  has  learned 
to  recognize  them. 

The  game  is  very  friendly,  and  young 
children  will  have  few  problems  playing 
it  by  themselves.  All  they  need  to  do  is 
press  a  number  key  and  [ENTER]  to  go  on 
to  thè  next  problem.  Although  children 
will  feel  independent  when  they  can  play 
this  computer  game  by  themselves,  it  is  stiil 


Line  Nos. 
100-160 
170-200 


210-270 


280-600 


610-670 


680-900 


910-1470 

1420-1500 

1510-1520 

1530-1950 

1960-2030 


Program  header. 

Clear  screen,  input  name, 
and  set  stariing  values  l'or 
variables.  (F  tt  of  righi 
answers)  (W  #  of  wrong 
answers) 

Initialize  colors  for 
character  sets. 

Initialize  character 
patterns. 

Set  starting  values  and 
clear  screen. 

Pick  random  characters 
and  random  number  of 
characters  and  place  on 
screen  usihg  subprograms. 
Ask  questions  and  input 
responses. 

Print  total  of  right  and 
wrong  responses. 

Input  to  start  game  over. 
Subprograms  to  make 
characters. 

Subprograms  to  make  dif- 
ferent  sounds  for  right  or 
wrong  answers. 


* 


special  for  them  to  have  Mom  or  Dad 
dose  by  to  appreciate  thè  vvonders  of  their 
learning  accomplishments. 

Play's  thè  Thing 

Our  children's  fascination  with  this  new 
technological  toy  can  help  them  learn  all 
manner  of  things  from  letter  and  number 

I  ■  TiVl  H  Counting  Fun 

Explanation  of  thè  Program 


concepts  to  exercising  their  imaginations. 
You  can  personalize  Counting  Fun  with 
your  child's  favorite  toys  and  appropriate 
reward  messages,  and  then  just  watch  thè 
magic  happen.  If  you  get  a  chance,  do 
"phone  home"  and  let  us  in  on  thè  Coun- 
ting  Fun  in  your  household. 

100  rem  ********************  „ 

11»  REM  *  COUNTING  FUN  *‘<L 
120  REM  *  BY  *  V  ; 

130  RETI  *  ROLYNDA  BRANTLEY  *  1/ 
140  REM  ******************** 

130  REM  W’EK  VERSI  ON  2.10.1 
100  REM 

Titàft  CALL  CLEAR 

100  INPUT  “WHAT  IS  YOJR  NAI-E?  “  S  K» 
190  14=0 
200  F=0 

210  CALL  SCREEN  (0) 

'  -220  CALL  COLOR  (  10.9,  1  ) 

230  CAU  COLOR  (11,9,1) 

240  CALL  COLORI  13,7, 1 ) 

230  CALL  COLOR  (14,  11,  I) 

260  CALL  COLOR (15, 2, 1) 

;  270  CALL  COLOR ( 16, 16, 1 ) 

260  A*=“FFFFFFFFFFFFFFFF“ 

399  CALL  CHAK( 12B, "3B7CFEFFFF7F7F3 
:  ’iv-'  f"  ) 

300  CALL  CRIAR  (  129,  "071F3F7FFFFFFFF 

t"  ) 

>  310  CALL  CHAR  (  130,  “00O000B0B0"  ) 

32»  CALL  CRIAR  (  13 1,  “3F1F1F0F0F07070 

330  CALL  CHAR  (  132,  •'FEFCFCFBFBF0F0E 

T  o"  > 

f  34»  CALL  CHAR  (  133,  “030101  “  ) 

380  CALL  CHAR  (  134,  "E0C0C06”  ) 

3*0  CALL  CHAR  (  136,  "FF0F0F0F0F0F0FF 

ÌÉ|^iF")  ,  .'Ti  :  . 

L;:  ‘i370  CALL  CHAR (137,  "FF030303030303F 

*  y.  TE")  _ 

380  CALL  CHAR  <  139,  “3F3F3F3F3F3F3FF 
y  syibd  t  ' 

CALL  CHAR  (  139,  Ar»)  ;  !  i  '  ■ 

•  '•»»0:CALi.  ORR  (  144,  “FF7E3C"  ) 


COdfKlJCt  pad 


Etf<AA 


\"  «® 

ile 


17* 

,  tee 

i'".  19® 

2®e 

K  21* 
v  22® 
'  23® 
t"  24® 


REM  . 

9EM  *  POCKET  SUNRISE  *  , 

REM  *  BY  S.T.KOLL  *  t  ' 

REn  ******************* 

REM  99’ER  VERSI ON  2.10.1  '~ 

DftTA  32, 42, 2,3,88,6,0, 0, 0 
READ  SKY,  STAR,  FGC.CHSET,  SUN,  SJ 
(4R ISE,  SUKH  I  ,  CNN,  OFF 
CALL  CLEAR 
CALL  SCREEN(2) 

CALL  COLORII, 2, 2) 

CALL  COLOR(2,  16,2) 

CALL  COLOR  18. 11,11) 
FG*="FFFFFFFFFFFFFFFF" 

BGS=  "  O0OOOOO0OOOOOOO0  “ 

FOR  DARK=1  TD  SO 
CALL  HCHAR  <23, 1 , SKY, 32) 

CALL  HCHAR (23, RND430+1, STAR, 1) 
PRINT  : 

GOSUB  5B0 
KEXT  DARK 
BGC=FGC 

DATA  15,9,11,4,5.6,6,6,6,0 
READ  FGC 

IF  FOCO®  TVEN  350 
03  TO  340 
CHSET=CHSET+1 
IF  CHSET<7  THEN  3BO 
CHSET=2 

CALL  COLOR (CFBET, FGC, BGC) 

IF  FGC<  >SUfEUSE  THEN  410 
ONN=l 

FOR  EIGHTH=1  TO  B 
PATTERNS^SEB*  <  FG* ,  1 , 2*  E I GHTH  )  C. 
SEG*(BG», 1 , 2* (8-EIGHIH  ) ) 

SKY= (CHSET+3 ) *B+EI GHTH- 1 
CALL  CHAR (SKY, PATTERN* ) 

CALL  HCHAR ( 23,  1 , SKY , 32 ) 

IF  OFF+(l-OtMN)THEN  540 
SUNHI=SUNHI-*-l 
SWIDE=SUNHI 
IF  SWIDE<5  THEN  510 
SW I DE=9— SW I DE 

CALL  HCHAR  (23,  17-6W IDE,  BUN,2«S 
WIDE) 

IF  SUNHKB  TVEN  540 

0FF=1 

PRINT  : 

GOSUB  5B0 
NEXT  E I  GHTH 
GO  TO  300 
FOR  TICK=1  TO  H9® 

VEXT  TICK 
RETURN 


ft®  CALL  CHAR ( 152, "7EFFFFE7E7FFFFF 

wt-  F"’ 

:  42®  CALL  CHAR  <153,  A*) 

;43®  CALL  CHAR  <  154,  "FFFFFFF,r7F3Fl»F0 
1") 

,i'44®  CALL  CHAR  (  155,  "FFFFFFFFFEFCFBF 

O") 

45®  CALL  CHAR  (  156,  "O1O31370F1F3F7FF 
3  ■  F") 

460  CALL  CHAR  (  157,  "BOCOEOFOFSFCFEF 

-  F"  ) 

47®  CALL  CHAR  (  142,  "FFFFFFFF"  ) 

48®  CALL  CfV*(  143,  "01010101010101F 

.  •  ' F" ) 

49®  CALL  CFWR(104,  "808001537373333 
1") 

50®  CALL  CHAR  (  105,  "O078FEFF9393FFF 
£••) 

SI®  CALL  CHAR  (  106,  "303030303030303 

O”) 

52®  CALL  CHAR  (  107,  "3030381FOF03O30 

ì:-  3"  > 

53®  C**_L  CHAR  (  108,  “30FCFFFFFFFFFFF 

,/>  F"  ) 

54®  CALL  CHAR  (  109,  "0303030303*01 1F3 

f"  ) 

fTyBS®  CALL  CHAR  (HO,  "FFFFFFFFFFFECFC 

'k\  .  F") 

56®  CALL  CHAR  (111,  “OOOO*3OOOO0OOE0F 

.  o") 

J  57®  CALL  CHAR  (  118,  "C3E7FF7E7E3C3C1 

9”$Ì8®  CALL  CHAR(141,"0000003F35FFFF2 

2"  ) 

STO  CALL  CHAR  (  1 59 ,  **  0060E 1 7E7E3E061 

i]  •  i«"l 

«9®  CALL  CHAR  (119,  “9C9C888BFE3E3E1 

si,’-  :  :  4")  1  i  ■ . 

K  61®  RANDOMIZE 
f;i;  *2®  F-0 

P5B  S 

7=e 


r 7i* 

j~,.  72* 

Tifi 
f  74* 

L-3* 


fc-»» 

l+m 


In 


FDR  L=1  TD  2 
C=2 

A=INT(4*RND)+1 

B=INT(6*RND> 

FDR  N=1  TD  B 
IF  A=1  THEN  790 
IF  A=2  THEN  B20 
IF  A= 3  THEN  B50 
F*=F‘-+- 1 

GOSUB  105O 
GOTD  B70 
X=X+1  / 

GOSUB  1530 
GOTD  B70 
Y=Y+1 

GOSUB  1630 
GOTD  B70 
Z— Z+ 1 

GOSUB  1730 

C^C’+S  ì  ! 

NEXT  N  -  |  ;  ! 

R=R+6 
NEXT  L 

FRINT  ;,HOW  MF*iY 
CFLL  HCH&R  (23.,  16,  1 1B) 
CALL  HCHAR  <23,  12,  1 1B  ) 
CALL  HCHAR  (23,14,  1 1B) 
INPUT  G- 

IF  G=X  THEN  1010 
W=W+1 

GOSUB  2010 
PRINT  HNO.  -  -  “  j'X 
BOTO  1030  !  !  ;  ! 

f=f+i  .  j  1  ; 

GOSUB  I960 
PRINT  "HOW  MANY 
CALL  HCHAR  (23,  16,  141] 
CALL  HCHAR  (23,  12,  141  ) 
CALL  HCHAR  (23,  14,  141  ] 
INFUT  H  ’ 

IF  H=Y  THEN  1130 
W=W-p  1 
GOSUB  2010 
FRINÌ  HND.  .  ."V;Y 
GOTD  1 150 

F=F+1  !  :  1 i 

GOSUB  I960 


PRINT  "HOW  MANY  7  " 

CALL  HCHAR (23, 16, 159) 

CALL  HCHAR (23, 12, 159) 

CALL  HCHAR (23, 14, 159) 

INPUT  I 

IF  I=Z  THEN  1250 
W=W+1 

GOSUB  2010 
FRINT  "NO.  .  .  M;  Z 
GOTO  1270 
F=F+1 

GOSUB  I960 

PRINT  "HOW  MANY  *?  " 

□ALL  HCHAR  (23,  16,  119) 

CALL  HCHAR  (23,  12,  1 19) 

CALL  HCHAR  (23,  14,  1 19) 

INPUT  J 

IF  J=P  TVEN  1370 
W=W+1 

GOSUB  2010 
FRINÌ  "NO.  .  .  *'  ;P 
GOTD  1390 
F=F+1 

GOS»B  I960 

INFUT  ^"HOW  MANY  CE  ALL  OF  THEJ1 

?  ":D 

V=X*+Y-*-Z‘+F‘ 

IF  D=V  TFCN  1460 
GOSUB  2010 

FRINT  "NO - "  ;  V 

W=VH1 
GOTO  1480 
F=F-*-l 

GOSUB  I960 

FRINT  "YOU  NAVE  GOTTEN  "  ;  F  ;  "  R 
IGHT" 

FRINT  "YOU  M1SSED  “;W 
FRINT  "I  LOVE  YDU,  ";K* 

INFUT  U* 

GOTD  610 
REM  HEART 

CALL  HCHAR ( R , C+2 , 1 2B ) 

CALL  HCHAR ( R , C+3 , 1 29 ) 

CALL  HCHAR (R,C+4, 130) 

)  CALL  HCHAR ( R+ 1 , C+2, 131) 


ma ws 


CALL  HCHAR 
CALL  HCHAR 
CALL  HCHAR 
CALL  SOUND 
RETURN 
REM  BUS 
□ALL  HCHAR 
CALL  HCHAR 
CALL  HCHAR 
CALL  HCHAR 
CALL  HCHAR 
CALL  HCHAR 
CALL  SCUND 
CALL.  SOUND 
RETURN 
REM  DICK 
CALL  HCHAR 
DALL  HCHAR 
CALL  HCHAR 
CALL  HCHAR 
CALL  HCHAR 
CALL  HCHAR 
CALL  HCHAR 
CALL  HCHAR 
CALL  HCHAR 
CALL  SOUND 
RETURN 
REM  ET 
CALL  HCHAR 
CALL  HCHAR 
CALL  HCHAR 
CALL  HCHAR 
CALL  HCHAR 
DALL  HCHAR 
CALL  HCHAR 
CALL  HCHAR 
CALL  SOUND 
RETURN 
REM  RIGHT 
CALL  SOUND 
CALL  SOUND 
CALL  SOUND 
RETURN 
REM  ITONG 
CALL  SOLND 
RETURN 


(R+-1,C-K5,  132) 
(R+-2,C+2,  133) 
(R+2,C+3, 134) 
(500,-1,2) 


(R,C+l,  136) 

(R,  C+2,  137.3) 
CR+l9jC,  139) 

(R-Fl  ,C+-1 ,130,4) 
(R+-2,C-»-l,  144) 
(R+2,03,  144) 
(200,-2,2) 
(300,-2,2) 


(R,  C+-2,  152) 
(R+^l,C+2,  153) 
(R+-2,C+-3,  153) 
(R+-2,C+2,  154) 
(R4^,C-h4,  135) 
(R-Fl  ,0*4,  156) 
(R+-1  ,C-K5,  157) 
(■R*M,jC-M,  142) 
<R+3,C+3,  143) 
(000,^3,2) 


(RSC^2, 104) 
(R,CF 3,105) 
(R-^l.C+2,  106,2) 
(R+-2,C+-2,  107) 
(R-*-2,C+3,  108) 
(R-*-3,C+-;2,  109) 
(iRÌ4i3  ,jC+i3 ,110) 
(R^3,b^4,  111) 
(700,-4,2) 

SOUND 

(200,000,8) 
(200,908,9) 
(300,  1047,0) 

SOUND 

(500,-7,0) 


Fine 


CARATTERISTICHE  DELL'EDIFICIO  IN 
ESAME: 


L'esempio  di  calcolo  che  viene  riportato 
di  seguito  si  riferisce  a  un  edificio  co¬ 
stituito  da  5  piani  sovrapposti  con  2  al¬ 
loggi  per  piano,  avente  un  porticato  al 
piano  terreno  e  una  terrazza  all'ultimo 
solaio  con  strutture  portanti  in  cemento 
armato. 

L'edificio  in  esame  costituisce  pertanto 
un  caso  abbastanza  usuale  affinché  lo 
esempio  assolva  meglio  la  sua  funzione. 
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IL  PROGRAMMA  E  LA  DISPENSA  OVE  SONO  CONTENUTE  TUTTE  LE  TABELLE 
1 1  A  DISPOSIZIONE  NEL  CLUB  A  LIRE  30.000  DI  CUI  IL  50  %  SARA' 
CORRISPOSTO  ALL  *  AUTORE  DEL  PROGRAMMA  IN  FORMA  PERMANENTE. 


RIVETE  UTILI  PROGRAMMI  E  IL  CLUB  CURA  LA  DISTRIBUZIONE 


L 3BLICITA'  E  VI  INVIA  TRIMESTRALMENTE  LA  QUOTA  SPETTANTE 


.  .  .  .  E  COME  PER  MAGIA. . . . 


Ohi  di  voi  ha  avuto  a  che  fare  con  quelle  infernali  macchi¬ 
nette  che  si  chiamano  TI  59  sa  benissimo  che  il'  Manuale  in 
dotazione  "sorvola"  su  aspetti  interessantissimi  del  Siste¬ 
ma  Operativo.  In  particolare  ci  sono  almeno  una  decina  di  co¬ 
dici  di  istruzione  "nascosti"  cioè  non  descritti  da  nessuna 
parte,  ma  che  la  TEXAS  usa  normalmente  nei  suoi  programmi. 
Pensavamo  che  con  il  "nostro"  TI  99/4A  queste  cose  non  acca¬ 
dessero  ed  invece . invece  accadono!! 

guanto  sto  per  dire  é  valido  solo  per  chi  ha  la  fortuna  di 
possedere  il  Modulo  333  Personal  decori  Eceping  (  che  ades¬ 
so  il  nostro  Franco  ha  anche  in  versione  italiana)  o  il  Mo¬ 
dulo  S3S  Statistics.  Sapete  bene  che  uno  dei  problemi  princi¬ 
pali  per  la  nostra  console  in  versione  base  é  la  mancanza  del¬ 
le  istruzioni  "Display  et"  e  "Accept  at" .  Porse  non  sapete 
però  che  con  uno  qualsiasi  dei  due  Moduli  citati,  il  nostro 
TI  BASIC  diventa  ojuasi  ....  EXTSNDED.  Basta  avere  infatti 
il  Modulo  inserito  nella,  console  cé  al  set  di  istruzioni  nor¬ 
malmente  presenti  se  ne  aggiungono  altre  due.  Sono  esattamente 

DALL  D  Serve  a  stampare  una'  stringa  in  qualunque  parte  del 
video 

CALL  A  Serve  ad  avere  inputs  in  qualunque  parte  del  video 
con  possibilità  di  controlli  davvero  interessanti. 


BOTASSI  DI  CALL  D 


FRANCOMPUTER 


;ALL  D(RI, CO, SIZ3, LISTA  DI  STAMPA  ) 


RI, CO  =  Coordinate  del  punto  di  inizio  della  stampa. (Riga, Colonna) 
3IZE  =  Lunghezza  della  stringa  da  stampare. 

LISTA  DI  STAMPA  =  Variabile  o  costante  di  siringa  da  stampare. 
ESEMPIO 

ICO  CALL  OLE  All 
HO  X$=" STRINGA" 

120  CALL  D(5 ,1,13, "QUESTA  E*  UNA") 

130  CALL  D(5, 15, 7, X$, 7, 1,4, "LUNGHISSIMA") 

140  GOTO  140 

Come  vedete  Cali  D  é  duplicabile  cioè  si  possono  stampare  più 
variabili  o. costanti  con  una  sola  istruzione.  Inoltre  stampa 
esattamente  il  numero  di  caratteri  specificato  nel  campo  SIZE. 
Nell' esempio  precedente  della  parola  "LUNGHISSIMA"  sarà  stam¬ 
pato  solo  "LUNG" .  Provate  a  cambiare  i  valori  delle  variabili 
dell'esempio  per  capire  bene  come  funziona. 

( Continua) 


E  COME  PER.  MAGIA  .  .  . 


( Continua) 


STATASSI  DI  CALI  A 
J ALL  à(RI,CO,F,INS,  [ÌliIN,liAx|  )  ; 

RI, CO  =  Coordinate  del  punto  di  input  (Riga,  Colonna). 

SIZE  =;  Lunghezza  massima  della  stringa  da  stampare. 

?  =  Segnalatore  di  Funzione 

IMS  =  Input.  Può  essere  anche  una  variabile  numerica. 

L IÒT, MAX  =  Limite  inferiore  e  superiore  dell'input  numerico. 

SCEMPIO 

100  CALI  CLEAR 

ZIO  CALI  D( 5 ,Ì, 28 , "BATTI  IL  TUO  NOME") 

120  CALL  A(7,l,l0,F,K0M$) 

130  CALL  D( 9, 1,28, "IL  TUO  NOME  E'  "&N0M$) 

140  GOTO  120 

Ter  fermare  il  programma  precedente  bisognerà  premere  CLEAR 
subito  dopo  ENTER.  Con  l’input  in  corso,  infatti,  il  program¬ 
ma  non  si  ferma.  Quest' altro  esempio  vi  mostra  invece  l’uso 
i=i  limiti  di  input: 

ICC  CALL  CLEAR 

TIC  CALL  D( 5, 1,28, "BATTI  UN  NUMERO  TRA  1  E  5") 

ITO  CALL  A(7,1,1,F,X,1,5) 

IjC  CALL  D( 9, 1,28, "IL  NUMERO  E?  "&  STR$(X)) 

I4C  GOTO  120 

Li  infine  ecco  l'uso  del  segnalatore  di  funzione: 

ICC  CALL  CLEAR 

TIC  CALL  D( 5, 1,28, "BATTI  UNA  STRINGA") 

120  CALL  A(7,l,28,F,xfc) 

IfC  CALL  D(9 ,1, 28 ,X$,ll, 1,28, "P=  "&  3TR$(F)) 

140  GOTO  120 

hr.  l'esempio  precedente  premete  i  tasti  di  funzione  della  pri¬ 
ma  riga  ed  osservate  il  variare  di  F.  La  corrispondenza  tra 
Tasti  di  funzione  e  valori  di  F  é  la  seguente:  BEGIN  6,  PROC'd  5 
^ZD  3,  REDO  4,  BACK  7.  ATTENZIONE:  con  CALL  A  non  é  più  abili- 
Taao  l'auto  repeat  dei  tasti,  ne  la  funzione  ERASE.  Le  lettere 
vanno  cancellate  una  per  una  con  DEL. 

Ireiete  sia  finita  ?  E  invece  NO  !  Con  il  Sistema  di  Memoria 
a  Dischi,  l'interprete  BASIC  riconosce  altre  quattro  istruzioni 
ai  esattamente:  CALL  L,  CALL  G,  CALL  H,  CALL  S.  A  che  cosa  mai 
serviranno  ?  Abbiamo  in  verità  già  qualche  idea,  ma  il  seguito 
aMZa  prossima  .  Rivista. 

Filipp^Ceri^u^^^^l 
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Line-by-Line 


COS  ' E '  UN'ISTRUZIONE  IN  ASSEMBLER 


da  utilizzare  sia  con  la  MINIMEMORY 
e  sia  con  1'  Editor  ASSEMBLER. 

FORMATO  DELLE  ISTRUZIONI  IN  LINGUAGGIO  SORGESTE 

Un  programma  sorgente  in  Assembler  è  formato  da  istruzioni  in 
codice  che  possono  contenere  direttive  di  assemblaggio  j is  tru= 
zioni  di  macchinatpseudo  istruzioni  commenti. 

Ogni  linea  (  o  record  )  di  istruzioni  sorgente  consiste  in  un 
massimo  di  80  caratteri  di  informazioni  inclusi  gli  spazi.  Un 
record  può  essere  suddiviso  in  più  sezioni  di  lunghezza  varia= 
bile  chiamati  campi. 

Il  CAMPO  ETICHETTA  (label)  è  posizionato  all'inizio  delli'istru  = 
zione'  sorgente  e-  serve  come  punto  di  riferimento. 

11  CAMPO  OP— CODE  è  il  codice  operativo(  un.  mumero,  un  nenie,  o 
un'abbreviazione)  della  azione  che  deve  compiere  l'istruzione 
sorgente . 

IL  CAMPO  OPERANDO  specifica  il  valore  su  cui  l'istruzione  agi= 
sce jpuo  essere  un  numero,  una  stringa,  un  indirizzo  etc  etc. 

IL  CAMPO  COMMENTO  e  un'area  in  cui  potete  aggiungere  commenti 
per  migliorare  la  leggibilità  del  programma  ma  esso  non  influ= 
enza  le  operazioni  del  computer. 

Le  definizioni  di  sintassi  descrivono  la  forma  richiesta  per 
l'uso  dei  comandi  in  relazione  ai  campi. 

LA  SEZIONE  4  descrive  le  procedure  di  scrittura  e  definisce  i 
dettagli . 

Nelle  definizioni  sintattiche  relative  alle  istruzioni  di  mac= 
china  ed  alle  direttive  di  assemblaggio  vengono  usate  le  seguen 
ti  convenzioni.  (  vedi  manuale  del  TI  pag.  31  )  e 

0  Le  parentesi  angolari  indicano  un  elemento  da  voi  de= 

f inito . 

°  Il  simbolo  b  rappresenta  uno  o  più  spazi(  o  blanks) 

La  sintassi  (  cioè  la  forma  richiesta  )  per  l'istruzione  sor= 
gente  è  la  seguente: 

jtlabeltQ  b  op-code  b  operando  >1  Ù  operando)]  b£<  commenta*^ 

Come  indica  questa  definizione  di  sintassi,  una  istruzione  sor= 
gente  può  avere  una  etichetta  da  voi  definita.  Uno  o  più  spazi 
separano  l'etichetta  dall'  óip— code.  Il  generico  termine  op— code 
include  codici  operativi  mnemonici,  direttive  di  assemblaggio', 
e  potete  dunque  inserire  uno  di  questi  elementi. 


Uno  o  più  spazi  separano  1'  op-code  dall'operando,  quando  è  ri  = 
chiesto  un  operando.  Operandi  addizzional i ,  quando  servono,  devo  = 
no  essere  separati  da  virgole.  Uno  o  più  spazi  separano  l,opern= 
do  o  gli  operandi  dal  campo  commento.  NOTA:  Anche  se  la  lunghez= 
za  massima  di  un  record  sorgente  è  80  caratteri,  quando  lo  lista= 
te  sono  stampati  solo  i  primi  (>()  caratteri  di  ogni  linea. 

Icampo  etichetta) 

Il  Campo  Etichetta  comincia  col  1°  carattere  del  record  sorgente 
e  termina  al  primo  spazio  seguente.  Il  campo  etichetta  è  un  s irn  = 
bolo  contenente  fino  a  sei  caratteri,  il  primo  dei  quali  DEVE  es= 
sere  alfabetico.  Gli  altri  caratteri  possono  essere  invece  alfa= 
numerici.  Una  etichetta  opzionale  è  per  le  istruzioni  di  macchina 
e  per  molte  direttive  di  assemblaggio.  Quando  l'etichetta  è  omessa 
il  primo  carattere  del  record  DEVE  essere  uno  spazio. 

Una  istruzione  SORGENTE  formata  solo  da  un  CAMPO  ETICHETTA  è  una 
istruzione  valida.  Ha  l'effetto  di  assegnare  la  locazione  corren= 
te  all'etichetta.  Di  solito  ciò  è  equivalente  a  piazzare  l'etichet= 
ta  nel  campo  etichetta  della  seguente  istruzione  di  macchina  o  di= 
rettiva  di  assemblaggio. 

Icampo  istruzione] 

Il  campo  istruzione  comincia  dopo  lo  spazio  che  chiude  il  campo 
etichetta  oppure  nel  primo  carattere  che  non  è  uno  spazio  seguente 
la  prima  posizione  del  record  se  l'etichetta  è  omessa.  Il  campo 
istruzione  termina  con  uno  o  più  spazi  e  non  può  superare  il  60° 
carattere  del  record  sorgente. 

Il  campo  istruzione  contiene  un  op-code  che  può  essere  uno  dei  se= 
guenti : 

°  ìeodice  operativo  mnemonico  di  una  istruzione  di  macchina. 

codice  operativo  di  una  direttiva  di  assemblaggio 
°)simbolo  assegnato  ad  una  "extended  operation"  da  una  direttiva 

DXOP 

°) codice  operativo  di  una  pseudo  istruzione. 

Icampo  operando  | 

Il  campo  operando  comincia  dojio  lo  spazio  che  conclude  il  campo  is  = 
truzione.  Non  può  oltrepassare  la  60°  posizione  del  RECORD  SORGENTE. 
Il  campo  operando  può  contenere  una  o  più  espres s ioni , variabil i „ o 
costanti: in  accordo  a  ciò  che  richiede  il  particolare  op-code.  Il 
campo>  operando  termina  con  uno  o  più  spazi. 

(CAMPO  o  COMME NT?)?  e  linea  di  COMMENTO  comincia  dopo  lo  spazio  che 
chiude  il  campo  operando  e  può  estendersi  fino  alla  fine  del  re= 
cord  sorgente  se  necessario.  Il  campo  commento  può  contenere  qua= 
lunque  carattere  ASCII  incluso  gli  spazi.  Unaliriea  o  istruzione  di 
commento  consiste  in  un  singolo  campo  che  comincia  con  un  asterisco 
e  continua  con  qualunque  carattere  ASCII  inclusi  gli  spazi,  in  qua= 
lunque  ordine.  * 

Le  istruzioni  di  commento  sono  stampate  nel  listato  del  codice  sor= 
gente  ma  non  hanno  altri  effetti  sul  1 ' assemblatore .Una  linea  com= 
posto  esclusivamente  di  spazi  è  considerata  una  linea  di  commento. 


A  BREVISSIMA  SCADENZA  DAREMO  TUTTE  LE  INDICAZIONI  PER  PROCEDERE  SU 
QUESTO  MERAVIGLIOSO  TERRENO  cioè  IL  LINGUAGGIO  MACCHINA.  IN  PldEPA  = 
RAZIONE  UN  MANUALE  IN  ITALIANO  CHE  VERRÀ»  CEDUTO  ASSIEME  ALLA  SSS 
MINIMEMORY .  LAVORIAMO  IN  5  PER  PARLO .  PRONTO  SARA'  A  $  '■  .j?‘  ? 
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By  Joseph  G.  De  Vincenti*,  Jr, 

P  O.  Box  375 
University  of  Dallas 
Irving,  TX  75061 


The  Assembly  Language  routines  presented  In  this  article  will 
lei  Home  Computer  users  draw  axes,  plot  curves,  and  even 
draw  objects  in  perspective  The  software,  consisting  of 
plottmg  routines  for  thè  Mini  Memory  Cartridge,  accesses  thè 
powerful  graphics  capabilities  of  thè  TI-99/4A  through  TI  BASIC 
The  routines  supplied  in  this  package  require  either  of  thè  follow- 
ing  penpheral  configurations: 

I.  Memory  Expansion.  cassette  recorder,  Mim-Memory,  and 
assembled  (ob|ect  file)  routines  available  on  this  issue's 
"99'er  Magazine-On-Tape."  |See  page  69 j 
2.  Memory  Expansion,  disk  System,  Mim-Memory, 

Ednor/Assembler.  and  source  files  (hand  entered  from 
listmgs  included  with  this  article.) 
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DRAW 

YP2 

EQU 

4 

DEF 

GCLEAR 

• 

OEF 

GRAPH 

AORG 

ORIGIN 

DEF 

LABEL 

DELTAX 

DATA 

o 

DEF 

«OVE 

DELTAY 

DATA 

0 

DEF 

SCALE 

SAVR1 1 

DATA 

o 

DEF 

XAXIS 

STASAV 

DATA 

o 

DEF 

YAXIS 

VAL 253 

DATA 

>4102,  >3700,  >0000 

1 

DATA 

>oooo 

REF 

NUrtREF 

VAL  191 

DATA 

>4101, >3BOO, >0000 

REF 

STRREF 

DATA 

>oooo 

VDPREG 

DATA 

>8002, >81E0, >0206 

A 

EOLI 

3 

DATA 

>83FF , >8403, >8506 

ADR 

EQU 

O 

DATA 

>0717 

ARG 

EQU 
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DATA 
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EQU 
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YDOT 

DATA 

>4001 , >oooo, >0000 
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EQU 
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DATA 
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EQU 

a 

PREGS 

BSS 

>20 

i  FLAG4 
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EQU 
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FSUB 

EQU 

>OD7C 
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GPLWS 

EQU 

>83EO 

DRAW 

MOV 

SSTATUS, SSTASAV 

KEYCOD 

EQU 

>0375 

MOV 

RI  1 , SSAVR1 1 

nASK 

EQU 
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BLWP 

SDRAW1 

HYPGT 

EQU 

>2800 

LWPI 

GPLWS 

ORIGIN 

EQU 

>7110 

MOV 

SSAVR1 1,R1I 

OVF 

EQU 

>0354 

MOV 

SSTASAV, SSTATUS 

PCT 

EQU 

>2000 

RT 

PGT 

EQU 

>oooo 

a 

PNT 

EQU 

>ieoo 

a 

MOV  aSTATUS, 3STASAV 

MOV  Rll.aSAVRll 

DI.  UP  3CLEAR 

LUPI  GPLWS 

MOV  3SAVR11,RU 

MOV  3STA3AV, aSTATUS 


BLWP  3VDPSET 
BLUP  a GAP AHI 
LUPI  GPLWS 
BL  aSCAN 
MOVB  aSTATUS. RO 
JNE  SCANIT 
LI  RO,  >0020 
MOVB  a*CEVCOD,RO 
CI  RO,  *  Q  ’ 

JNE  SCANIT 
L  I  RO,  VDPRST 
BL  3VADR 
MOV  32, RII 
B  «RI  I 


MOV  3STATUS,  aSTASAV 
mov  Rii,asAvmi 
BLWP  3LABEL1 
LWPI  GPLWS 
MOV  aSAVRll.RU 
MOV  3STASAV, aSTATUS 


MOV  aSTATUS, 3STASAV 
MOV  Rll.aSAVRll 
blwp  ano ve i 

LUPI  GPLWS 

MOV  aSAVRll.RU  | 
MOV  39TASAV,  8STATUS 


1  a 
a 

SCALE 

RT 

MOV 

MOV 

SSTATUS,  SSTASAV 
RI  1  ,  SSAVRU 

BLWP 

3SCALE1 

LWPI 

GPLWS 

MOV 

aSAVRll.RU 

MOV 

SSTASAV, SSTATUS 

RT 

a 

• 

XAXIS 

MOV 

RI  l.aSAVRU 

MOV 

SSTATUS , SSTASAV 

LI 

RO, MREQS+ 1 6 

CLR 

•  RO* 

CLR 

ano 

BLWP 

3AXIS 

LWPI 

GPLWS 

MOV 

3STASAV, 38TATUQ 

MOV 

aSAVRll.RU  T 

RT 

a 

a 

MOV  Rll.aSAVRll 
MOV  aSTATUS,  aSTASAV 
LI  RO, MREGS+ 1 6 

LI  RI, 2 
MOV  RI , «R0+ 

SLA  RI ,  1 

MOV  RI, «RO 

BLWP  3AX19 

LUPI  GPLWS 

MOV  39TA8AV,  8STATU8 

MOV  aSAVRl 1 ,R1 I 

RT 


DATA  MREGB.AXIBI 


BLUP  aNUMREF 
LI  R2.EAC 
LI  R3.ARG 
BL  BTRDATA 
CLR  RO 
LI  RI , 1 
BLUP  3NUMREF 
LUPI  GPLWS 
BL  3FCOM 

LUPI  MREBS 
MOVB  aSTATUS, RO 
ARDI  RO, >4000 
JBT  AICON1 
LI  RO.ERRBA 
B  3ERR9YB 
A X CONI  MOV  3X,3XSAVE 
mov  av.avsAVE 

LI  R2.ARG 
LI  R3,  SREGS 
BL  3TRDATA 
MOV  FLAG2.RI 
BRA  R  t , 1 
Al  RI , 1 
BLUP  aCOMVTR 
MOV  RO, 3X IFLAO 
LI  R2,  SREB9 
LI  R3.FAC 
BL  8TRDATA 
MOV  FLAB2.RI 
BRA  RI ,  1 
AI  RI ,  1 
BH#>  3CONVTR 
MOV  RO.aXKFLAI 
S  aX  1FLAG4)  ,1 
MOV  RO,  BDCLTAX 
CLR  RO 
LI  RI, 3 
BLM>  aNUMREF 
LI  RI, 2 

MOV  FLAG4.FLAB' 
JEO  AXCON2 
BRA  RI, 1 

AXC0N2  BLUP  3C0NVTR 
NE  6  FLAB2 
NEB  FLAB4 
MOV  RO,  3Y  IFLAO1 
MOV  RO.aYlIFLAi 
CLR  3DELTAY  CFL/ 
BLWP  3DRAU3 

mov  a i sa ve, a x 

MOV  8Y8AVE,aY 
RTUP 

*  © 


>  BIT2  < 

PART  THO  QF  PLOTTING 
ROUT INES 


i  99'  ER  VERSI ON  2-2-1ALHM 

I 

IL  INE  0002 


CLEAR 

DATA 

MREG8, CLEAR l 

CLEAR1 

LI 

R1,MYPGT 

LI 

R2, > 1 BOO 

CLCONI 

CLR 

■  RI 

INCT 

RI 

DECT 

R2 

JNE 

CLCONI 

CLR 

ax 

CLR 

av 

LI 

R2, VAL233 

LI 

R3.XMAX 

BL 

3TRDATA 

LI 

R2, VAL 1 91 

LI 

R3, YMAX 

BL 

3  TP  DAT  A 

LI 

R3, >4001 

MOV 

R3, aXDOT 

MOV 

R3, 3YDOT 

CLR 

3XMIN 

CLR 

3YHIN 

LI 

RI,  3 

L  I 

R2,2 

CLCON2 

CLR 

3XDOJ (R2> 

CLR 

3YDOT <R2) 

CLR 

aXMIN(R2) 

CLR 

BYMlN (R2 ) 

INCT 

R2 

DEC 

RI 

JNE 

CLC0N2 

RTMP 

• 

1 

CONVTR 

DATA 

CONREQpCONVT 

CONVT1 

MOV 

32 (R I 3 ) ,R5 

CI 

R3,  1 

JNE 

CVCDNJ 

CLR 

R5 

CLR 

R6 

JMP 

CVCON2 

CVC0N1 

LI 

R3,  16 

LI 

Ri,  8 

CVC0N2 

LI 

R2,FAC 

H 

R3.ARG 

BL 

STRDATA 

LI 

R2, XM1N 

A 

R3.R2 

LI 

R3.FAC 

BL 

STRDATA 

LMP I 

GPLWS 

BL 

SF3LIB 

LMP  I 

CONREO 

LI 

R2.FAC 

LI 

R3.ARG 

BL 

STRDATA 

LI 

R2.XD0T 

A 

R6,R2 

LI 

R3.FAC 

BL 

STRDATA 

LWPI 

GPLWS 

BL 

SFDIV 

BL 

SCFI 

LWPI 

CONREG 

MOV 

SFAC, »R13 

RTMP 

a 

a 

ORAMI 

DATA 

NREGS, DRAU2 

DRAM3 

DATA 

SREGS, DRAW4 

a 

DRAW2 

CLR 

RO 

LI 

RI,  1 

BLMP 

SNUHREF 

BLMP 

SCONVTR 

MOV 

RO,  SX 1 

S 

SX.RO 

MOV 

RO, SDELTAX 

CLR 

RO 

LI 

RI, 2 

BLMP 

SNUtIREF 

BLMP 

SCONVTR 

MOV 

RO.SVI 

S 

SY.RO 

MOV 

RO.SDELTAY 

DRAM  4 

ABS 

3DELTAX 

AB9 

aDELTAY 

C 

3DELTAY, 3DELTAX 

JGT 

DRCON1 

MOV 

3DELTAX , DELTAA 

MOV 

3DELTAY, DELTA» 

MOV 

ax,A 

MOV 

3Yf  B 

CLR 

DRFLAG 

JMP 

DRC0N2 

DRCONl 

MOV 

3DELTAX, DELTAB 

MOV 

3DELTAY, DELTAA 

MOV 

ax,B 

MOV 

3Y,A 

SETO 

DRFLAG 

DRCDN2 

C 

3X, 9X 1 

JLT 

DRC0N3 

SETO 

R2 

JMP 

DRCON4 

DRC0N3 

LI 

R2, 1 

DRC0N4 

C 

3Y,0Y1 

JLT 

DRCON3 

SETO 

R3 

JMP 

DRCONà 

DRC0N5 

LI 

R3,  1 

DRCON* 

MOV 

DELTAA,  COUNT 

INC 

COUNT 

MOV 

DELTAB, RO 

SLA 

RO,  1 

MOV 

DELTAA, RI 

S 

RlpRO 

MOV 

ROpERR 

S 

RlpRO 

MOV 

DELTAB, RI 

SLA 

RI ,  1 

REDRW1 

MOV 

DRFLAG, DRFLAG 

JNE 

REDRW2 

MOV 

A,  3X 

MOV 

B,3Y 

JMP 

REDRM3 

REDRW2 

MOV 

A,3Y 

MOV 

B,ax 

REDAM3 

BLMP 

3PLDT 

MOV 

ERR,  ERR 

JGT 

CHNG 

A 

RI,  ERR 

JMP 

I  NCR 

CHNG 

MOV 

DRFLAG,  DRFLAG 

JNE 

REDRM4 

A 

R3,B 

JMP 

REDRW3 

REDRM4 

A 

R2,B 

REDRW3 

A 

RO, ERR 

I  NCR 

MOV 

DRFLAG, DRFLAG 

JNE 

REDRMÒ 

A 

R2,  A 

JMP 

REDRW7 

REDRW6 

A 

R3,  A 

REDRW7 

DEC 

COUNT 

JNE 

REDRMI 

MOV 

3X1,9X 

MOV 

3YI,aY 

RTMP 

a 

a 

ERRSYS 

MOV 

RO, 3ERRCQD 

LWPI 

GPLMS 

LI 

RII, >OOOE 

MOV 

aRIlpRIl 

B 

9ERR0R 

a 

a 

GAP AHI 

DATA 

MREG6 , QRPAH2 

a 

GRPAH2 

CLR 

RO 

BL 

3  VA  DM 

LI 

RI, >1BOO 

LI 

R2,MYPGT 

GRCONi 

MOVB 

#R2+, 3VDPMD 

DEC 

RI 

JNE 

GRCONI 

RTMP 

a 

a 

ItREGSp  LABEL2  1 

LABEL 1 

DATA 

« 

LABEL2 

CLR 

RO 

LI 

Ri,  1 

LI 

R2; >FFOO 

MOVB 

R2.3BUFFER 

LI 

R2, BUFFER 

BLMP 

MOV 

CI 

JLT 

RTMP 

LBCON1  CI 
JL 
RTMP 

LBC0N2  MOV 
CI 
JLT 
RTMP 

LBC0N3  CI 
JL 

RTMP 

LBC0N4  CLR 
HOVB 
SUPB 
NEO 
Al 
SRA 
6RA 
BLA 
A 

MOV 

A 

CI 

JL 

LI 

S 

MOV 

LBCON3  LI 
SLA 
AI 

LLOOPI  CLR 
NOVE 
9MPB 
CI 
JHE 
CLR 
JMP 

LBC0N6  CI 
JLE 
LI 

LBC0N7  AI 
BLA 

LBCONO  AI 
LI 


LLOOP2  SOC 
CI 
JL 

RTMP 
LBC0N9  DECT 
JNE 
DEC 
JNE 
LI 

MOVB 
RTMP 


DATA 

CLR 

LI 

BLMP 

BLMP 

MOV 

CLR 

LI 

BLMP 

BLMP 

MOV 

RTMP 


PAGE 


a 

MO^El 
MOVE  2 


3STRREF 
3X, XPL 
XP1,236 
LBCON1 

XPl , >8000 
LBCON2 

3Y, YPI 
YPI, 192 
LBC0N3 

YPI f >8000 
LBCON4 

QRCNT 

?  BUFFER  ,  OKCNT 

CHRCNT 

YPI 

YPI, 191 
KP1 , 3 
YPI  p  3 
YPI  ,3 
XPlpYPl 
YPI, ADR 
CHRCNT , YPI 
YPI ,7*0 
LfiCONS 
Ré.,  7*0 
R&pYPI 
YPI,  CHRCNT 
R7p BUFFERAI 
ADR,  3 
AORp  MYP8T 
CHAR 

•R7+,CHAR 
CHAR 
CHAR,  32 
LBCON* 

CHAR 

LBCGN0 

CHAR, 127  I 

LBC0N7 

CHAR, 127 

CHAR, -32 

CHAR ,  3 

CHAR, CHRTBL 

CNTpB _ 

t  CHAR  > ,  a  ADR 
ADR,  HYPOT+>  1001 
LDC0N9 

CNT 

LLOOP2 
CHRCNT 
LLOOPI 
RO, >FFOO 
RO,  8  BUFFER 


MRE0S.M0VE2 

RO 
RI,  I 
3NUHREF 
3CONVTR 
RO,  ax 
RO 
RI ,  2 
BNUTIREF 
3C0NVTR 
RO,  8Y 


>  BIT  3< 

PART  TVREE  O F  PUJTTINB 
ROUTINES 


W'ER  VERSI ON  2.2.  1ALNI 


iL  INE  0002 


« 

PLOT 

DATA 

PWEQS.PLOT1 

« 

PL0T1 

HOV 

SI, XPl 

CI 

XP1.23A 

JLT 

PLCONI 

PECCHI 

RTWP 

CI 

XPl, >8000 

JL 

PLCON2 

PLC0N2 

RTWP 

MOV 

8V.VP1 

CI 

YPlf 192 

BL 

8TRDATA 

LI 

R9P  >0100 

JNE 

VDCON2 

JLT 

PLCON3 

LI 

R2, XDOT 

CB 

R9, aovF 

LI 

RO, PNT 

RTWP 

A 

R3.R2 

JNE 

SCCON2 

BL 

a  VADW 

PLC0N3 

CI 

VPl,  >8000 

LI 

R3, ARO 

LI 

RO, ERRNO 

LI 

R3,3 

JL 

PLC0N4 

BL 

2TRDATA 

B 

3ERR3Y8 

VDC0H3 

CLR 

RI 

RTWP 

LWPI 

GPLWS 

SCC0N2 

CLR 

R7 

LI 

R2, 236 

PLCONI 

MOV 

XPl, XP2 

BL 

aFDIV 

CLR 

rb 

VDCON4 

MOVB 

Rl,aVDPWE 

NE  13 

YP1 

LWPI 

MREGS 

MOVB 

aFAC, R7 

AI 

RI,  >0100 

AI 

YP 1 , 191 

LI 

R2.FAC 

SWPB 

arac 

DEC 

R2 

MOV 

VPl, YP2 

LI 

R3,  XDOT 

MOVB 

3FAC.RB 

JNE 

VDC0N4 

5RA 

VPl,  3 

A 

R5,R3 

ABS 

R7 

DEC 

R3 

SLA 

VPl,  5 

BL 

BTRDATA 

ABS 

RB 

JNE 

VDCON3 

SRA 

XPl,  3 

B 

•RIO 

MOVB 

RB, BFAC 

RTWP 

MOV 

YP1 , ADR 

t 

SWPB 

aFAC 

• 

A 

XPl f ADR 

NUMGET 

MOV 

^11, RIO 

MOVB 

R7,SFAC 

• 

SLA 

ADR,  3 

CLR 

RO 

LI 

R2,FAC 

• 

AND  I 

YP2, >0007 

LI 

RI, 2 

LI 

R3, XDOT 

PAGE 

A 

YP2, ADR 

A 

R5,  RI 

A 

R3,R3 

AI 

ADR, MYPGT 

LI 

R2, FAC 

BL 

aTRDATA 

MOVB 

•ADR, CHAR 

LI 

R3f  XMAX 

B 

•RIO 

AND1 

XP2, >0007 

A 

Rò,R3 

1 

MOV 

ADR,  R4 

BLWP 

9NUHREF 

1 

MOV 

XP2.R0 

BL 

3TRDATA 

TRDATA 

MOV 

»R2+,*R3+ 

LI 

HASK, >BOOO 

DEC 

RI 

MOV 

ÌR2*. »R3+ 

SRC 

MA9K, 0 

LI 

R2.FAC 

MOV 

«R2+, tR3+ 

nov 

A4, ADR 

LI 

R3, XMIN 

MOV 

*R2, »R3 

soc 

MASK.CHAR 

A 

R6.R3 

RT 

MOVB 

CHAR,»AD« 

BLWP 

9NUMREF 

t 

RTWP 

BL 

9TRDATA 

• 

< 

LI 

R2,XMAX 

VADW 

ORI 

RO, >4000 

• 

A 

R6.R2 

V/ADR 

SWPB 

RO 

SCALEI 

DATA 

MREBS,SCALE2 

LI 

R3.ARG 

MOVB 

R0.3VDPWA 

• 

BL 

3TRDATA 

SWPB 

RO 

SCALE  2 

CLR 

R3 

LWPI 

GPLWS 

MOVB 

RO,  aVDPWA 

CLR 

R6 

BL 

3FCOM 

RT 

BL 

3NUMGET 

LWPI 

MREGS 

< 

LI 

R5,2 

MOVB 

aSTATUS, RO 

• 

LI 

R6,  16 

AND  I 

RO,  >4000 

VDPSET 

DATA 

MREBS, VDPl 

BL 

SNUMGET 

JST 

SCC0N1 

• 

CLR 

R3 

LI 

RO, ERRBA 

VDPl 

LI 

R2, VDPREQ 

Ct_R 

ftò 

Bp 

9ERRSYS 

LI 

RI ,  7 

BL 

dNUMSUB 

SCC0N1 

B 

•  RIO 

V0C0N1 

MOV 

•R2+, RO 

LI 

R3,B 

* 

i 

BL 

aVADfl 

LI 

R  6,  16 

Nunsue 

MOV 

RII,  RIO 

DEC 

RI 

BL 

3NUMSLIB 

LI 

R2.XMIN 

JNE 

VDCONl 

CLR 

R3 

A 

R6,R2 

LI 

RO,SNT 

BL 

SNUMDIV 

LI 

R3,FAC 

H 

RI, >DOOO 

LI 

R3.B 

BL 

BIRBATA 

BL 

a  VADW 

BL 

9MJMDIV 

LI 

R2 , XMAX 

MOVB 

RI, 9VDPWD 

i 

RTWP 

A 

R6.R2 

LI 

RO, PCT 

• 

LI 

R3, ARO 

* 

BL 

aVADW 

NUfIDIV 

MOV 

RI  1, RIO 

BL 

3TRDATA 

LI 

RI, COLOR 

LI 

R2,VAL233 

LUPI 

GPLWS 

LI 

R2, >1800 

A 

R3,R2 

BL 

apsuB 

VDC0N2 

MOVB 

Rl.aVDPWD 

LI 

R3.FAC 

> 

LWPI 

MRCOS 

DEC 

R2 

»  >  BIT4  <  • 

•  PART  FOUR  DF  PLDTTINB  * 

*  ROUTINES  t 

«  99’  ER  VERSI ON  2.2.  lALfVI 
«LIME  0002 

CHRTBL  DATA  >0000, >0000, >0000. >0000  blank1 
D*TA  >0010,  >1010,  >1010,  >0010 
DATA  >0020, >2828, >0000, >0000 
DATA  >0020, >2B7C, >2B7C, >2820 
DATA  >0030, >3430, >3814, >3438 
DATA  >0060 , >6400 , > 1 020 , >4C0C 
DATA  >0020, >3050, >2054, >4834 
DATA  >0000 , >00 10, >0000, >0000 
DATA  >0009, >1020, >2020, >1008 
DATA  >0020, >1008, >0800, >1020 
DATA  >0000, >2810, >7C10, >ZBOO 
DATA  >0000, >1010, >7C10, >1000 
DATA  >0000, >0000, >0030, >1020 
DATA  >0000, >0000, >7COO, >0000 
DATA  >0000, >0000, >0000, >3030 
DATA  >0000, >0400, >1020, >4000 
DATA  >0030, >4444, >4444, >4438 
DATA  >0010, >3010, >1010, >1038 
DATA  >0030, >4404, >0810, >207C 
DATA  >0030 , >4404 , > 1 804 , >4438 
DATA  >0000, >1828, >4B7C, >OBO0 
DATA  >007C, >4078, >0404, >4430 
DATA  >0018, >2040, >7844, >4438 
DATA  >007C , >0408 , > 1 020 , >2020 
DATA  >0038, >4444, >3844, >4438 
DATA  >0030, >4444, >3C04, >0830 
DATA  >0000, >3030, >0030, >3000  l 
DATA  >0000, >3030, >0030, >1020  | 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

OATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DAT* 

DATA 

DATA 

DATA 

DATA 

DATA 


>OOO0, 
>0000, 
>0020, 
>0030, 
>0038, 
>003B, 
>0070, 
>0038, 
>0078, 
>007C , 
>0O7C, 
>003C, 
>0044, 
>0030, 
>OOOi, 
>0044, 
>0040, 
>0044, 
>0044, 
>007C, 
>0070, 
>0038, 
>0070, 
>0038, 
>007C, 
>0044, 
>0044, 
>0044, 
>0044, 
>0044, 
>O07C, 
>0030, 
>0000, 
>0038, 
>0000, 

/ 


>1020, 

>007C, 

>1008, 

>4404, 

>445C, 

>4444, 

>2424, 

>4440, 

>2424, 

>4040, 

>4040, 

>4040, 

>4444, 

>1010, 

>0404, 

>4850, 

>4040, 

>6C54, 

>6464, 

>4444, 

>4444, 

>4444, 

>4444, 

>4440, 

>1010, 

>4444, 

>4444, 

>4444, 

>4420, 

>4420, 

>O40B, 

>2020, 

>4020, 

>0808, 

>1020, 


>4020, 

>007C, 

>0400, 

>O01O, 

>343C, 

>7C44, 

>3B24, 

>4040, 

>2424, 

>7840, 

>7040, 

>3C44, 

>7C44, 

>1010, 

>0404, 

>6050, 

>4040, 

>3444, 

>344C, 

>4444, 

>7840, 

>4454, 

>7050, 

>3004, 

>1010, 

>4444, 

>2020, 

>5454, 

>1028, 

>1010, 

>1020, 

>2020, 

>1008, 

>0000, 

>4400, 


>1000 

>0000 

>1020 

>0010 

>4038 

>4444 

>247B 

>4430 

>2478 

>407C 

>4040 

>4438 

>4444 

>1038 

>4430 

>4844 

>407C 

>4444 

>4C44 

>447C 

>4040 

>4034 

>4844 

>4430 

>1010 

>4430 

>1010 

>5420 

>4444 

>1010 

>407C 

>2030 

>0400 

>0030 

>0000 


> 

7 

9 

A 

8 
C 
D 
E 
F 
0 
H 
1 
J 
K 
L 
M 
N 
□ 
P 
0 
R 
S 
T 
U 

V 

w 

X 

Y 

z 

t 

\ 

1 


>  pOURCE  < 

«« 

«  PART 

PIVE  OF  FLOTTINO 

ROUTINES 

II 

99’ ER  VEPSIOM  2.2.1ACMM 

COPY  "DSKl.BITl- 
COPY  MDSK1 . BIT2- 
COPY  -DSKI.BIT3" 
COPY  "D3K1.BIT4" 
END 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


>0000, 

>0000, 

>0000, 

>0000, 

>oooo, 

>0000, 

>0000, 

>oooo, 

>0000, 

>0000, 

>0000, 

>oooo, 

>0000, 

>0000, 

>oooo, 

>oooo, 

>oooo, 

>oooo, 

>oooo, 

>oooo, 

>0000, 

>oooo, 

>0000, 

>oooo, 

>oooo, 

>oooo, 

>0000, 

>0000, 

>0018, 

>0010, 

>0030, 

>pooo, 

>oooo. 


>oooo, 

>2010, 

>0038, 

>0078, 

>003C, 

>0070, 

>O07C, 

>007Ct 

>003C, 

>0044, 

>0038, 

>0008, 

>0024, 

>0040, 

>0044, 

>0044, 

>007C, 

>0070, 

>0030, 

>0078, 

XK>3C, 

>007CP 

>0044, 

>0044, 

>0044, 

>0044, 

>0044, 

>007C, 

>2020, 

>1010, 

>0808, 

>2054, 

>oooo. 


>0000, 
>0000, 
>447C, 
>2438, 
>4040, 
>2424 , 
>4078, 
>4078, 
>405C, 
>44 7C, 
>1010, 
>OBOB, 
>2830, 
>4040, 
>6C54, 
>6454, 
>4444, 
>4478, 
>4454, 
>4470, 
>4030, 
>1010, 
>4444. 
>4428, 
>4454, 
>2810, 
>2810, 
>0010., 
>4020, 
MK>10, 
>04 OB, 
>0800, 
>oo OC, 


>7COO 
>0000 
>4444 
>2470 
>403C 
>2478 
>407C 
>4040 
>4430 
>4444 
>1038 
>4830 
>2824 
>407C 
>4444 
>4C44 
>447C 
>4040 
>4834 
>4844 
>0478 
>1010 
>4438 
>2810 
>3420 
>2844 
>1010 
>20 7C 
>2018 
>1010 
>0030 
>0000 
>oooo 


dal 


« 

t 


END 


PR0GET1 AZIONE  DI  CURVE  E  TORNANTI 


PROGRAMMA  n.  32 ( 


Il  programma  in  EXT.  BASIC  ci  permette  di  calcolare  direttamente, 
in  fase  di  progettazione  della  planimetria  della  strada,  Ve  curve 
circolari  e  i  tornanti  secondo  lo  schema  seguente  : 


^i  possono  usare  sia  angoli  sessagesimali  che  centesimali. 

Dopo  il  RUN  appaiono  le  formule  usate  (per  chi  non  le  ricordasse!) 
e  viene  chiesto  il  raggio  RX  della  poligonale  di  guida  : 

=  equidistanza 
pendenza  ' 


Per  maggiore  precisione  1  ‘angolo  al  vertice 
in  due  modi  : 

1)  con  il  goniometro 

2)  con  il  metodo  difiRIGGS 

Dopo  l'input  della  tangente  vengono 
visualizzati,  per  quanto  riguarda  le 
curve:  l'angolo  ,  il  raggio,  la 
corda,  la  freccia,  lo  sviluppo. 

Se  si  sceglie  l'opzione  "tornante"  vengono 
visualizzati  i  valori  relativi  alle  2  con¬ 
trocurve  ed  al  tornante. 


può  venire  misurato 


PROGETTAZIONE  STRADALE 

CURVE  MONOCENTR1CHE  E  TORNANTI 
-  programma  in  extended  basic  ■  - 


PfiOiftAMMft 


Dopo  il.  RUN  il  programma  visualizza  le  relazioni  più  importanti 
delle  curve  monocentriche. 

Si  possono  usare  sia  angoli  sessagesimali  che  centesimali. 

Viene  chiesto  l'input  del  raggio  della  poligonale  Rx  in  cm  : 

Rx  =  e/p  dove  :  e  =  equidistanza 

p  =  pendenza  di  progetto  della  strada 

esempio  : 


6  "  l  ®  Rx  =  5x100  _  no_ 

p  =  6,5%  =  76,923  m 

D  .  0 

poi  in  scala  1:1000  diventano  7.6923  cm 


Per  una  maggiore  precisione  l'angolo  tra  due  lati  (Rx)  della 
poligonale  di  guida  può  essere  misurato  in  due  modi:  1)  con 
il  goniometro  -  2)  con  il  teorema  di  Briggs  (misurando  la  di¬ 
stanza  tra  gli  estremi  dei  lati  'Rx‘). 


I~  fase  :  CURVA  MONOCENTRICA 


Viene  chiesto  o  l'angolo  ^  della  curva  o  la  distanza  misura¬ 
ta  e  poi  la  tangente. 

Le  risposte  sono  l'angolo  ,  il  raggio,  la  corda,  la  frec- 


Dopo  aver  premuro  'BARRA'  comparirà  il  menù  principale:  se 
premete  1 R.'  ricomincia. 

Vi  sarà  data  la  possibilità  di  cambiare  il  metodo  di  misura 
del  l 'angolo  ^ 


FRANCOMPUTER 


Il'  fase  :  TORNANTE 


Date  la  misura  della  I*  tangente  e  della  II*  tangente  (la 
tangente  è  il  segmento  che  va  dal  vertice  della  contro  cur 
va  fino  al  vertice  del  tornante  (V^V  o  V^V). 

Infatti  la  tangente  totale  è  data  dalla  somma  della  tan¬ 
gente  di  partenza  più  tangente  della  curva. 

I  dati  sono  restituiti  secondo  questo  ordine  per  le  due  co£ 
tro  curve:  T  tot,  RAGGIO,  TANGENTE,  Qf ,  ^  ,  CORDA,  FREC= 
CIA,  SVILUPPO. 

Poi,  in  fondo  allo  schermo,  viene  visualizzato  il  «P  T0R= 
MANTE  e  lo  SVILUPPO  TOTALE  (comprese  le  contro  curve). 


VARIE 


Numerosi  sono  gli  articoli  da  pubblicare,  tutti  vogliono  raccontare 
le  loro  esperienze,  ciò  che  hanno  fatto,  scoperto.  Ben  vengano  ancora, 
solo  così  si  può  crescere  insieme. 

Ci  dispiace;  che  qualcuno  o  che  ha  fatto  o  che  ne  è  venuto  in  possesso 
consideri  il  valore  del  suo  programma  "oro  colato".  -Mi  è  costato  tre 
Lmesi  di  lavoro-,  l’ho  pagato  centomila  lire-,  in  cambio  vorrebbe  20 
programmi  dei  nostri,  come  dire  che  chi  ha  fatto  questi  20  è  uno  stu= 
pido  e  che  solo  perchè  li  offriamo  a  chi  non  li  ha  (  e  per  uno  scopo 
ben  diverso)  a  lire  3000  dovrebbero  essere  al  confronto  stupidaggini. 
C'è  stato  uno  che  addirittura  ci  ha  inviato  un  ritaglio  di  una  rivista 
che  pubblicava  un  programma  in  Texas  per  avere  in  cambio  uno  dei  nostri 
migliori  programmi.  Costui  non  ha  capito  nulla  ! 

L'ha  capito  invece  molto  bene  un  nostro  socio-corrispondente(e  non  uno 
solo)  che  ìci  ha  inviato  due  programmi  e  una  documentazione  sugli  stes 
si  da  far  rimanere  a  bocca  aperta  una  Software  Hause  di  grande  presti» 
gio .  Non  solo  ma  ci  ha  accluso  il  francobollo  per  la  risposta!  Insom- 
ma  costui  è  un  vero  signore,  un  vero  apostolo  dell'informatica.  E  non 
posso  tacere  il  nome.  Dott.  Ing.  Mandalari.  Non  mi  offre  programmi 
per  lucro;  ne  pretende  nulla.  Opera  solo  per  la  diffusione  dell'infor» 
matica  a  livello  di  massa  e  soprattutto  che  questa  con  appropriati  me¬ 
todi  e  programmi'  entri  nella  scuola. 


RICHIESTE-OFFERTE:  :::::: 

Il  nostro  socio  Vezzari  Geometra  cerca  programmi  seguenti  :  Topografia, 
Costruzioni, Contabilità  Lavori  con  revisione  prezzi , Archivio  pratiche 
Archivio  di  coordinate  t£pografiche(locali.tà, descrizione  vertice,  fo= 
glio  di  mappa,  particella, coordinate  di  X  e  Y  per  minimo  1000  vertici 

Riferimento  socio  432 

Il  socio  ZAGa  cerca  un  programma  simulazione  di  volo.  Riferim.to  231 

Il  socio  Artuao  professore  alle  medie  cerca  programmi  didattici  di 
ogni  genere.  Flow  Chart  fatti  da  ragazzi.  Riferimento  189. 

Il  socio  marassini  cerca  programmi'  fatti  con  Minimemory, Assembler , 

Ke  e  plng,  Multi  pian.  Riferimento  N;  321» _ _ 

I  soci  Cavallin,  Crosa,  Ferrini ,Cioffi ,Vanneschi  cercano  programmi 
che  disegnino  il  grafico  di  una  funzione  scelta  dall'utente!  y=x-senx\ 
in  alta  risoluzione  con  velocità  accettabile  e  con  po: sibi*  .x+còa  x  ' 
lità  di  scegliere  l'unità  di  misura  sull'asse  X  e  Y  .  Rlf.  49,112,224. 

II  socio  Chiappini  cerca  1  programma  elenco  clienti  fornitori 

(su  discoli)  ,  1  programma  IVA  semplificata 

1  Paghe  e  contributi.  Rifer.to  233 

Il  nostro  socio  Capecchi  cerca  d'occasione  SSS  Giochi.  Rifer.to  136 

Il  nostro  socio  GIORGI  cerca  e  chiede  collaborazione  su  programmi  di 
scuola  elementare.  Qualsiasi  genere*  Riferimento  t»7 _ 

Il  nostro  socio  Cavriani  vende  SSS  Eoi tiplications  30.000,  Poker  30.000 
Number  Magic  20  .000 , Calcio  30.000,Car  war  30 .000 , a ttack  30. 000, Video 
Games  1  30.000,  SPEECH  Editor  30 .000 ,Blasto  30 .000 ,Keeping  30.000, 
Alpiner  30, 000, Music  Editor  30 .000 ,Hustrle  3O.OOO.  Riferim.to  293 

Il  nostro  socio  Marcellini  cerca  programmi  di  anagrafico  clienti  e 
contabilità.  Riferimento  22?.  _ 

FRANCOMPUTER  VI  OFFRE  L'OPPORTUNITÀ*  DELLA  CERTIFICAZIONE  LEI  VOSTRI 
PROGRAMMI  E  CURA  LA  VENDITA  DEGLI  STESSI  SU  TUTTO  IL  TERRITORIO  NaZI0= 
NaLE:  IL  VOSTRO  PROGRAMMA  LO  METTIAMO  IN  CATALOGO  AL  PREZZO  CHE  DECI¬ 
DIAMO  INSIEME.  IL  50  %  Va<  ALL'AUTORE. 

4 

Specificate  bene  il  programma.  Genere.  Cosa  fa.  Cosa  serve. Basic  o  EX 


SUPPLEMENTO  alle  A4,  pagine  di  programmi  contenute  nella  rivista 

PROGRAMMI  IN  EXTENDIC  BASIC 


CANNIBALI  :  Un  gioco  senza  grafica  ma  con  una  forte  logica.  Uno  degli 
esploratori  deve  attraversare  il  fiume.  Ricorda  il  famoso  gioco  del 
lupo  e  della  pecora  sulla  barca.  Difficile  I . 5»  000 


PISTA  SKATE  (  JOYSTICK)  Due  dischi  su  una  pista  di  ghiaccio.  Per  due 
giocatori.  Attenzione  alle  curve,  non  sbandate  o  scivolate.  TRE  tipi 
di  gare.  0=con  ostacoli i  T=con  tempo. P=  prendi  gli  oggetti  volanti. 
Un  programma  molto  bello  e  diversificato  bene.. . .  5*000 


TENNIS  (  JOYSTICK)  Campo  da  tennis  visto  dall’alto  con  traiettoria 
curvilinea  della  pallina.  Punteggio  convenzionale.  Possibilità  di 
scegliere  i  colori,  di  giocare  in  doppio.  REDO  per  giocare .... IO .000 


CALCIO  .  (joystick)  Campo  di  calcio  tridimensionale.  Scegliete  colo= 
re  del  campo  e  delle  maglie  e  VIA!  Si  impossessa  della  palla  il  gio=; 
catore.  più  vicino.  Ammessi  anche  i  colpi  di  testa.  Rimessa  automati= 
ca.  Contatempo  .  REDO  dopo  ogni  tempo . 10.000 


STAR  RIDE  (  JOYSTICK  )  Dovete  colpire  quante  astronavi  potete.  Un 
giocatore  spare  l’altro  governa  l'astronave  servendosi  del  radar. 
Redo  per  avere  il  commento  Begin  per  nuova  mis s ione ........... IO .000 


BOXE  (  JOYSTICK)  Al  suonare  del  Gong  avvicinatevi  all'avversario  pre= 
mete  il  tasto  PIRE  e  spostato  la  leva  nella  direzione  scelta  per  il 
pugno t  alto  basso  sinistro  destro.  Piò  a  lungo  tenete  il  tasto  PIRE 
premuto  e  più  forte  sarà  il  colpo  quando  lo  rilasciate . ..10.000 


ORBITE  DI  SATELLITI  Definibile  massa,  K1 ,  velocità  etc.  Un  programma 
revisionato  e  .messo  a  punto  da  un  nostro  socio  matematico ......  5 • 000 


ìlUTO  CARATTERI  GRAFICA:!?'  il  programma  che  abbiamo  illustrato  sulla 
rivista  numero  1.  Chi  lo  ha  ricevuto  ci  ha  seguitato  a  fare  i  compli= 
menti.  Tanto  è  stato  l'aiuto . 10.000 


SPRITER  ORIGINALE  USA.  Per  la  costruzione  degli  Spriters  sulla  lava= 
gna  video.  Disegnate  ciò  che  volete  poi  un  tasto  per  i  colori  e  via 
in  movimento . 5*000 


CITTA  D'ITALIA.  Visualizza  la  cartina  d'Italia  chiedendovi  a  quale 
città  corrisponde  il  cerchietto  che  lampeggia . 5*000 


CALCIO  SECONDO  PER  SECONDO.  Programma  che  consente  di  tenere  sempre 
aggiornata  la  classifica  con  i  punteggi  ,  le  reti  fatte , segnate 
partite  vinte  pareggiate  perse . .10.000 


ASTEROIDI  (JOYSTICK)  Molti  giganti  multicolori  bellissimi  spriters 
sullo  schermo.  Sppiate  muovervi  con  la  vostra  navicelle  senza  che 
essai  vada  ad  urtarli.  Punteggio  finale.  . ...10.000 


FELIDO  Vi  svolazzano  attorno  due  uccellini.  Voi  gatto  posizionateyi 
e  scattate  per  prenderli.  Molto  difficile  molto  simpatico . 5.000 


MATEMATICA  1  DIDATTICO  Esercizi  con  risposte  giuste  sbagliate  su 
auddizzioni-,  sottrazioni,  divisioni,  scomposizioni,  moltiplicazioni 
etc  tee.  Punteggio  finale.  Molto  interessante. . . . 10.000 

NOTES  Su  una  lavagna  video  rigata  potete  scrivere  le  vostre  annotazio 
ni,  le  vostre  lettere  ed  inviarle  ai  vostri  corrispondenti  che  hanno 
il  TI  99*  Potete  salvare  ,  rivedere,  correggere,  registrare  su  tape 
conservare.  Un  piccolo  Word  Processor . ....10.000 


,N0T  ONE  (  DADI)  Fate  una  partita  a  dadi  all "americana  con  computer 
Il  rilancio  è  parlato  (  col  sintetizzatore  chi  l'ha)  Buona  visualizza 
zione  grafica  dei  dadi . .  .  .  .  . . ...5 .000 


SPRITERS  CERULO : In  italiano.  La  firma  di  Cerulo  significa  sempre  un 
buon  programma.  Questo  modificando  in  meglio  il  programma  253  lo  ha 
fatto  diventare  un  capolavoro  per  la  creazioni  di  spriters .. .10 .000 


PROSEGUE  PROGRAMMI  IN  EXTENDIC  BASIC 


300  PROFILO  LONGITUDINALE  STRADALE  .  Il  programma  elabora  dati  rela= 
tJivi  ad.  profilo  di  una  strada.  £  valori  che  devono  essere  immas» 

*i  sono t  Le  distanze  parziali(  fra  picchetti).  Le  quote  del  ter= 
reno.  Migliore  descrizione  del  programma  sulla  rivista  2.....^B.0Q0 

301  MAGAZZINO.  GESTIONE  MERCI  Su  tape  CSI  CS2  Archiviare , aggiornare , 

descrizione  ar ticol o ,quan t i t à ,  prezzo  unitario,  scorta  minima» 
valore  totale  singolo  articolo,  valore  totale  del  magazzino.  In 
ottima  grafica.  Un  programma  eccezionale  tóy  CERULO . 48.000 

304  TI  DEX  GRAFICA  Per  eseguirò  disegni  vari  su  una  lavagna  che  poi  po 

tate  salvare  su  cassetta.  Un  formidabile  programma  di  grafica  ope» 
ra<  del  nostro  nostro  socio  CERULO . . . 20.000 

305  SERENATA  Un  programma  musicale  molto  gradevole  e  con  grafica!  a  co= 

loro.  Originale  USA,.... . 5*000 

306  ANGELI  MUSICANTI  Un  altro  programma  musicale  gradevole  USA... 5*000 

307  CHITARRE  SUONANTI  In  grafica  12  suonatori  con  le  loro  chitarre  vi 

intrattengono  con  una  gradevole  musica. USA  . . . . 5*000 

308  CHOPIN  Un  pezzo  musicale  "  con  amore  sul  mìo  cuore"  sulla  ba&e 

dell'Opera  IO  N.3  di  Chopin.  Grafica  e  suoni  bellissimi . 5.000 

314  BASKET  l)  SEGNAPUNTI  classifica  di  una  partita  di  basket.  Punteggio 

di  ogni  giocatore . . . ..5*000 

315  BASKET  2)  SEGNAPUNTI  classifica  di  Squadre  in  torneo. USA . 5.000 

316  SUBROUTINE  PIXEL  TRAIL-CIRCLE  Un  interessante  programma  del  nostro 

bravo  RANDONE.  Vedi  descrizione  sulla  rivista  w.2... . 10.000 

317  SUBROUTINE  »  SFONDO"  Con  un  istruzione  in  EX.B.  del  tipo  CALL 

SFONDO (  Tipo, colore)  il  TI  99  realizza  su  video  uno  scenario  "  mon= 
tagnoso"  del  tipo  indicato  (  da  1  a  10 )  e  del  colore  desiderato 
(da>  1  ai  1,6).  La  subroutine  utilizza  gli  aprite  dal  21  al  28  compre» 
si, in  magnify  (  4  ).  Questo  programma  può  essere  utile  ausilio  per 
la  creazione  di  disegni  o  sopratutto  di  VIDEOGAME . 10.000 

3X8  FORMULA  DI  GAUSS  Utile  in  Topografia:  calcolo  dell'area  di  un  poli» 
gono  date  le  coordinate  dei  vertici . . . . . 5*000 

319  FROGGER  La  simpatica  rana  che  deve  attraversare  1 ' autostrada. «5*000 

320  PROGETTAZIONE  STRADALE  II  programma  opera  del  nostro  bravissimo  CI= 
MADORI  permette  di  calcolare  direttamente  in  fase  di  progettazione 
della, planimetria  della  strada  le  curve  circolari  e  i  tornanti  se= 


pondo  gii  schemi  del  foglio  pubblicato  in  rivista  N.2. . 40.000 

PROSEGUE  PROGRAMMI  IN  BASIC 

1252  EXCHANGE/ tag-s or t/  quick-sort . . IO . 000 

1253  PERCORSO  OTTIMIZZATO/  simulazione  di  supermarket . 10.000 

1254  CALCOLO  IMP  FISCALE,  PREVIDENZIALE,  stipendio  netto . 10.000 

1255  COSTI  DI  PRODUZIONE . 15.000 

1256  RITORNO  SU  INVESTIMENTI . 10.000 

1257  ANALISI  ALTERNATIVE  (  acquisto  macchine  industriali) . 10.000 

1258  ANALISI  BREACK-EVEN . 10.000 

1259  ANALISI  TITOLI  AZIONARI . .10.000 

A _ _ _ _ 

1260  ANALISI  TREND  AZIONARI  (  3  programmi) . 15*000 

1261  ANALISI  DI  2  PROCESSI  PRODUTTIVI . 20.000 

1262  AMMORTAMENTI . . . 10.000 

1263  OPERAZIONI  SU  MATRICI . 10.000 

- — - 


PROGRAMMI  IN  BASIC 


1201 


1202 


1203 


1205 


1206 


1207 


1208 

_sI2g9 

“1210" 


I2II 


1212 


1215 


Ì2±"(S 


ARCHIVIO  INDIRIZZI  PER  Associazioni,  Circoli  etc.  Ricerca  nomina* 
tivi  automatica  anche  su  aree  di  interesse  degli  stessi.  Ricerca 
di  chi  si  interessa  d'Arte,  Mus ica , Fil os olia  etc . 10.000 


L  *  IMPICCATO  Bellissima  grafica.  Cercate  di  indovinare  con  le  lette= 
re  appropriate  la  parola  o  condannate  a  morto  1 ' innocente ....  5 .000 


GRAFICO  DI  FUNZIONI  Un  programma  di  matematica  . 5.000 


CONVERSAZIONE  col  computer ! Piccolo  programma  di  domande  e  risposte 
con  possibilità  di  ampliamento  all'infinito . ....5*000' 


SATURNO  in  grafica  su  tutto  lo  schermo.  Con  gli  anelli  e  i  suol  pì= 

anetinl  che  gli  ruotano  attorno . 5*000 

MATRICI  Due  programmi  in  uno .  Spiegazioni  in  un  programma  ed  eaecu= 
zione  nell  *  altro . . . . . «  »  »  « . 5  «OOP 


RISOLUZIONI  DI  EQUAZIONI  DI  2°  GRADO . 5*00 

DISSEQUAZIONI  DI  2°  GRADO.  Ottimo  programma  matematico,......; 

ISTOGRAMMI  con  una  grafica  a  piu  colori  »  Per  mesi,  per  lettere  per 

numeri.1  Riposrto  laterale  dei  dati  imme ssi.... . .....5» 000 

BLACK  AUT  Gioco  dei  mattoni.  Devi  demolire  i  mattoni  con  il  perfet= 

to  rimbalzo  della  pallina.  Usare  il  JOYSTICK  .  .  .  .  .  . .  .  .  . 5 .000 _ 

TI  GRAPH  SOMMA  Diverso  dal  N.  IÌ3.  Questo  ha  la  girigiia  f ormata  da 
6  quadrati  8X8  pixel  quindi  maggior  possibilità  di  creazioni  di 
caratteri  grafici  più  grandi.  L'accesso  alla  griglia  à  diretto  sen= 
za  scrivere  le  coordinate  e  le  ripetizioni.  Si  può  disegnare  e  can= 
celiare  direttamente  sulla  griglia.  Con  una  opzione  potete  ottenere 
il  disegno  in  piccolo  con  tutti  i  colori  per  lo  sfondo  e  per  il  cas 
ratiere  .;  . . .  IO  .000 


RUBRICA  SOMMATORIA  Archivio  ;  con  ricerca  (  con  aggiunta  e  azzeramento) 
creazione  con  fisse  o  var iabil i , sub  salvataggio .unione  ....... IO .000 


SCI  DISCESA  Per  Io  giocatori.  Scegliete  colore,  numero  delle  porte 

distanza!  fra  di  esse,  larghezza  e  poi  giù  dal  bosco . 10,000 

TRON  Costruito  sul  modello-  di  Tron  intellivision.  Bella  grafica  e 
ottimo  modello^  per  vostri  futuri  giochi . . . 5*000 


DRUM  MACHINE  Scrive,  lista,  suona,  correggi,  carica  da  nastro,  re* 
gistra  su  nastro.  A  disposizione  HAT  TOM  SIDE  TOMS  SIDES  BASS  DEL 
CYM.  Fate  musica  facilmente. . 5*000 


IL  MUSICHIERE  Dovete  indovinare  ben  50  motivi  di  canzoni  note.  Uno 
o  due  giocatori.  Un  programma  che  che  vi  serve  anche  per  aggiunge*: 
re  pezzi  musicali  ai  vostri  programmi . 5*000 


L'IMPICCATO  Con  l'opzione  di  poter  giocare  con  il  computer  o  con  un 
amico.  Si  può  quindi  decidere  prima  la  parola  poi  farla  indovinare 

Qualsiasi  parola  in  italiano  _ fino  a  15  le t tere . 10.000 

SUPER  PAC  MAN  II  solito  gioco  diventato  super.  Bellissima  grafica 

colore  movimento. _ _  _  _  _ _ _ _ 

TI  EQUAZIONI.  Grafica  del  frontespizio  TEAAS  a  Ib  colori.  Un  program^ 

ma  originale  americano . . . . . 5.000 

TÈNNIS  PING  PONG  con  J7)YSTICK  .  (~ in  preparazione  )...... . 5  *000 


ANALISI  DI  MARKOV  Programma  matematico . . . ..5*000 


AMP  CIRCUIT  (  vedi  il  212  precedente)  erroneamente  è  stato  messo 

negli  EX .  Basic  mentre  invece  è  in  BASIC . 5*000 

FINANZA^.--  Un  potentìs  simo  programma  ad  altissimo  livello*.  Interesse 
composto,  incremento  in  base  d ' anno , obbl igazioni  ordinarie  converti*: 

bili»  TELQUEL.  Programma  utile  al  professionista . 10.000 

DARE-AVERE  Un  indirizzario  di  IOÒ  nominativi  con  creazione , aggiorna» 
mento, eliminazione , visualizzazione  per  nome,  codice  e  per  l'area 

dei  nominativi  avere  e  dare  . . .  10.000 

SCACCHI  .  Grafica  come  l' originale  Texas^  Per  giocare  in  'due  ò  ~ 

per  memorizzare  una  partita  coinè  un  archivio.  Una  cassetta  quindi 
con  due*  programmi.  Gioco  per  due  e  archivio -programma, ........ .10.000 


seguono  PROGRAMMI  IN  BASIC 


1220  ORDINE  ALFABETICO  Per  riordinare  nominativi  in  ordine  alfabeti= 
co.  IOO  nominativi  occupano  1300  Bytes,  1000  nominativi  occupa= 

_ no _ 3  »  3  50  By  tea . . . . . . .  5»  000 

1221  ROUTINE  per  scrivere  in  qualsiasi  punto  del  video,  h  per  oriz= 

zontalé;  V  per  verticale  potete  occupare  tutti,  e  32  X  24  punti 
non  possibili  con  la  normal  e  print . 5  .000 

1222  ISOLAMENTO  TERMICO  DEGLI  EDIFICI  LEGGE  373  .  Un  eccezionale  pro= 
granuna  che  per  essere  in  Basic  è  ancora  più  eccezionale.  La  ca= 
ratteristica  del  programma  anche  se  brevemente  è  contenuto  nella. 

rivista  allegata  a  questo  aggiornamento  programmi . 30.000 

Questo  programma  è  corredato  da  una  dispensa  di  37  pagine  datti= 
loscritta  con  schemi,  di  edifici,  formule,  uso  programma. 


1223  CALCOLO  C.C.A  Un  altro  programma  altamente  professionale  fatto 

in  semplice  basic.  Anche  di  questo  si  danno  brevi  cenni  sulla 
rivista.  Corredato  da  una  dispensa  di  24  pagine  con  schizzi  e 
tabelle  è  opera  dell'Ing.  Dott  Mandalari . 30»C)00 

1224  FINANZIARIA  4  Un  ecce  zionale  programma  con  17  combinazioni  a  carata 
tere  finanziario.  Calcoli  veloci  per  sapere  ogni  momento  qpale  è 
la  migliore  soluzione.  Valori  futuri  di  investimento  con  versai 
menti  non  uniformi, in  un  unico  versamento,  a  versamenti  mensili. 
Decisioni  acquisto-affitto.  Deposito  regolare.  Prelievi  regolari. 
Investimento  Iniziale.  (  quanto  devi  versare  oggi  per  avere  dopo 

*  anni  all'x  cjo  un  x  capitale  )  .Tasso  di  interesse  nominale,  ef  f  et= 
tivo.  Quota  di  deprezzamento  su  un  articolo.  Capitale  su  prestito. 
Pagamento'  regolare  di  un  prestito.  Quota  di  interessi  annuale  su 
un  prestito.  Termine  di  un  prestito.  Quanto  dura  un  pagamento  di 
X  all1  con  versamenti  mensili.  Un  programma  che  vi  da  le  idee 
chiare.  Sul  mercato  costa  mediamente  100/150.000  lire  per  i 
nostri  soci  la  spesa  è  minima  . 15.000 

1225  PROBABILITY  (  by  RANDONE  )  Simula  la  caduta  casuale  di  una  aeri* 
di  palline.  Evidenzia  la  distribuzione  secondo  la  curva  di  GAUSS 
E'  un  esempio  di  grafica  ANIMATA  IN  TI  BASIC ............ .10 .OOO 

1226  AVVENTURA  NEL  CASTELLO  (  by  RANDONE)  Un  programma  che  simula  il  “ 
vagabondare  per  un  tetro  castello-.  Il  programma  per  la  grande 
quantità,  cji  informazioni  contenute  è  ad  limiti  della  memoria  del 

TI  99.1  Un  interessante  programma, . . . . ...5.000 

1227  STRUTTURE  PORTANTI  per  tubazioni  industriali  civili . 10.000 

1228  CEMENTO  ARMATO  Flessione  verifica  progetto...., . .,..10,000 

1229  CALCOLO  iTELAI  CON  ELEMENTI  FINITI . 10.000 

1234  STRIPPAGGIO  Sol venti (discontinuo )  Strippaggio  vapore . 10.000 


1235 


DISTILLAZIONE  DISCONTINUA . 10.000 

REAZIONE  CHIMICHE  Cinetica  non  lineare . 10.000 

OTTIMIZZAZIONE  PROCESSI  Distillazione/analisi  economica.. IO .000 

RISCALDAMENTO  acqua  sanitaria . 10.000 

BUDGET  SPESE . . . 10.000 

PACKAGE  di  scambio  termico  (transistori  superfici  piane, aletta»  ... 
ture,  convenzione  laminare  e  forzata,  equazione  FALKNER-SKAN  , 
distribuzioni  temperature  in  regime  transitorio , alettatura,  su= 
perfici  verticali  ecc  ecc.) . ..20.000 

BILANCIAMZNTO  DINAMICO  GIRANTI . . 10.000 

COLONNE  DI  DISTILLAZIONE  E  ASSORBIMENTO . 10.000 

METODO  PERCORSO  CRITICO  (  C  P  M  ) . .  .10.000 

CINETICA  REAZIONE  LIQ./GAS  (  catalisi  eterogenea) . 10.000^-^ 

PERT  (  programmazioni  progetti/oi tre  100  attività . IO.UUOyy" 


1241 


1242 


1244 


1245 


1246 


1247 


1248 


1249 


1250 


1251 


PUBBLICAZIONI  E  MATERIALE  DISPONIBILE  NEL  CLUB 


RIVISTA  99er  ,  Americana  (  mese  di  novembre  )  lire  11.000 

TI  99  LEARNING  di  Towsend  (  in  inglese  )  160  pag : . 16.000 

IMPARIAMO  A  PROGRAMMARE  IN  TI  BASIC-  Oltre  90  esercizi 
risolti  e  proposti.  Introduzione  ai  giochi  con  il 
TI  99/4A  ,  Oltre  ben  10  programmi  completi,  grafica, 
colore , suono .  Tutte  le  funzioni  del  TI  BASIC  arric= 
chite  con  molti  esempi . (  ici .  i tal iaoo ) . . . 16.000 

MANUALE  IN  ASSEMBLER  in  inglese  . 30.000 

BASIC  IN  COMPUTER  ;  8  lezioni  su  cassetta  (4)  in  italiano 
è  il  computer  che  vi  insegna  il  computer.  Un  corso  inte= 
rattivo  per  procedere  e  capire  speditamente . 20.000 

L'EXTENDIC  BASIC  ;  7  Lezioni  su  4  cassette,  più  un  gioco 

realizzato  con  gli  Sprite .velocissimo.  Un  corso  comple= 
to  per  capire  guesto  potente  linguaggio . 20.000 

ESTRATTI  VARI  dalle  varie  riviste.  In  fotocopia  chiedeteci 
ciò  che  vi  serve.  Ci  pagate  solo  il  costo  delle  fotoco= 
pie*  Cioè  lire  100  caduna. 

Disponibili  articoli  su  la  Consolle  in  generale,  sui  FILE, 
sull ' assebler ,  sulla  Minimemory,  sul  sintetizzatore  vocale- 
Minima  evasione  :  circa  20  pagine  +  400  lire  del  francobollo. 


SSS  EXTENDIC  BASIC  Cartuccia  con  manuale .  149.000 

Viene  regalato  il  Corso  di  4  cassette  con  7  lezioni  e  2 
fantastici  giochi  :  SPACE  GEMINI  E  IMPERIAL  LANDER  ripeto 
entrambi  fantastci.  Come  grafica  e  come  Sprite. 


N. 

Programma 


in  Basic 
i n  EX .  B . 


iil  tuKiZiPftlq  1 


N 


Nome  Programma 


Iti  COfKdft  Sititi  0  [_  MOd 


IO  iPtbtltorlu  6  LAtVfOliA 


TOTALE 


IlHPOR 


T0  1. 


Cdlflifi  5 


Per  ricevere  i  programmi  e  il  materiale 
USA  guesto  modulo  se  alleghi  assegno. 

Se  desideri  in  contrassegno  puoi  fare 
anche  l'ordine  telefonico.  In  contras= 
segno  la  merce  viaggia  sicura  e  veloce. 


1 


L, 


t 


’  100 

CALL  CLEAR 

■  110 

CALI.  CHAR  (  12B,  "F” 

> 

120 

CALL  COLOR (13, 2, 2 

) 

1.30 

X  1  =  1 6 

140 

Y 1  =  1 2 

150 

CALL  HCHAR (Y1 , X 1 , 
CALL  KEY  (  0 K,  è  ) 

128) 

160 

170 

ir  S=0  THEfcl  1 60 

ieo 

IF  K— 69  THEN  230 

190 

IF  K=BB  THEN  260 

200 

IF  K=B3  THEN  290 

210 

IF  K-68  THEN  320 

220 

GOTO  160 

230 

Y2=Y 1-1 

240 

X2=X1 

250 

IF  Y2< 1  THEN  160 

ELSE 

260 

Y2=Y 1+1 

270 

X2=X  1 

280 

IF  Y2>24  THEN  160 

ELSE 

290 

X2=X1-1 

300 

Y2=Y  1 

310 

IF  X 2< 1  THEN  160 

ELSE 

320 

X2=X1+1 

330 

Y2=Y  1 

340 

IF  X2>32  THEN  160 

350 

CALL  HCHAR 1  XI, 

72  ) 

360 

CALL  HCHAF  X2, 

12É 

370 

X  1  =  X  2 

7,. 

Y1=Y2 

,  3 

CITO  160 

350 


i5U 


350 


. .Un  saluto  da  VICENZA 

e . 

CONCLUSIONE 

Se  non  hai  bisogno  di  noi  e 
di  questi  quattro  fogli,  man= 
daci  a  dire  cosa  hai  fatto  di 
buono  TU*  Diventeremo  importan 
ti  con  la  tua  collaborazione 
tecnica  e  con  i  tuoi  program= 
mi . 

Se  invece  questo  notiziario  ti 
piace  così  com'è  e  vuoi  conti= 
nuare  a  riceverlo  avviseremo 
noi  quando  esce  il  prossimo  nu= 
mero.  Non  mandateci  subito  ne 
soldi  ne  francobolli. 

Ripeto  avviseremo  noi  quando 
è  pronto  il  terzo  numero. 

Cerca  anche  di  collaborare! 

Alla  ribalta  ci  potresti  essere 
anche  TU  e  sappi  che  prima  o  ■ 
poi  in  base  ai  numeri  che  dai 
si  accorge  che  hai  numeri  da 
vendere . 


f  ranco 
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